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LA REALIDAD 
MANDA 



La mujer del César no sólo ha de ser 
honesta, sino parecería. Este acertó 
romano bien puede aplicarse a la 
norma MSX. Y no tanto a la potencia 
de su sistema, a las innegables venta- 
jas de su compatibilidad, a las nume- 
rosas posibilidades futuras, sino a su 
fortaleza en el mercado. Queremos 
decir que su fortaleza no puede limi- 
tarse a las máquinas, sino hacerse 
extensiva a su presencia en el merca- 
do y no rebajarse a competir con má- 
quinas que tecnológicamente no le 
llegan al más diminuto de sus chipa. 

En estos momentos MSX mantiene 
una seria y dura batalla con aparatos 
incompatibles aún entre sí y que ade- 
más, como un reflejo de la poca serie- 
dad comercial de cara a los usuarios 
dejarán de venderse con la marca que 
llevaban hasta ahora (Amstrad) para 
venderse con otra marca (Sinclair) 
aprovechando el prestigio que ésta 
obtuviera antes de su crack económi- 
co. Junto a esto se halla la prepoten- 
cia publicitaria y precios verdadera- 
mente atrayentes que recuerdan a 
los antiguos vendedores en el metro 
que ofrecían por cinco duros un bolí- 
grafo, cuatro libretas y de regalo una 
pluma estilográfica. 

Ante tal política los fabricantes de 
MSX sólo oponen sus aparatos, lo 
cual sería muy positivo si reinara la 
claridad, pero no es precisamente 
claridad lo que hay en el mundo de la 
microinformática de consumo. En 
este sentido es absolutamente nece- 
sario que los fabricantes implicados 
en el sistema MSX tomen una actitud 
más decidida no sólo a nivel publici- 
tario, sino también informativo para 
que sus aparatos, cuya calidad y ren- 
dimiento ya conocen miles de usua- 
rios, disputen la batalla del mercado 
en mejores condiciones, que además 
de ser los mejores en su segmento, 
también lo parezcan. En la lucha por 
la primacía del mercado, la realidad 
manda y los fabricantes de MSX han 
de ser realistas. 
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ONSTOP GOSUB 



Tengo un CANON V-20 y 
quiero saber: 

¿Dónde empieza un progra- 
ma y dónde acaba? 

¿Cómo se puede anular la 
sentencia ON STOP GOSTJB? 

También quisiera que publi- 
carais los pokes que sirven 
para vidas infinitas, como se 
hace en las revistas de otros 
ordenadores, así como algo so- 
bre lenguaje FORTH. 

Luis Valero Moreno 
Andorra la Vella 
(Principado de Andorra) 

—Los programas empiezan 
en la dirección 32768 y acaban 
en la posición que indica la va- 
riable del sistema TXTTAB, 
que se encuentra en &HF676- 
7. Para obtener el ñnal debes 
hacer: 

PRINT PEEK (&HF676) + 
256.PEEK (6PHF677) 

Naturalmente todo esto se 
refíere a un programa BASIC, 
puesto que los que estén 
bados en forma de 
pueden ubicarem 
sición. 

-El efecto de ON STOP OO 
SUB se anula pulsando simul- 
táneamente las teclas SHIFT, 
CTRL, ORAPHy CODE. Lo que 
sucede es que frecuéntese aña- 
de otro sistema de protección, 
por lo que este truco puede no 
funcionar. 

—Hemos recibido muchas 
cartas pidiendo POKES para 
Juegos. En principio, no hemos 
querido hacer algo que pudiera 
fomentar la copla üegal de 
programas. No obstante, com- 
prendemos que muchas veces 
resulte molesto adquirir un 
juego y comprobar que es 
prácticamente imposible ir 
pasando de pantalla. Por tan- 
to, a partir de ahora Iremos in- 
cluyendo algunos trucos que 
permitan jugar mejor, ponien- 
do el máximo cuidado para no 
lesionar los legítimos intere- 
ses de los fabricantes. Desde 
aquí os animamos a compartir 
con todos los lectores los PO- 
KES que descubráis. 

En lo que no podemos com- 
placerte, al menos en un futu- 
ro próximo, es en tu interés 
por el FORTH, porque deben 
ser muy pocos los usuarios 
que disponen de un compila- 
dor de este lenguaje. Tal vez 
más adelante tratemos un 
poco el PASCAL. 



QUINIELAS 

/ v 



Cómo pasar una impresora 
matrlcial MSX de 80 columnas 
a 40. 

Si es posible sacar los gráfi- 
cos de mayor tamaño. 

Cómo hacéis para volcar las 
pantallas de presentación de 
Juegos como la que publicas- 
teis en vuestro número 18: 



IMPRESORA 

He leído vuestros artículos 
sobre el volcado de pantalla en 
los números 16 y 18 y me que- 
dan algunas dudas: 



Gabriel Mlr Fieras 
Inca (Baleares) 

—Suele haber tres formas de 
controlar la anchura de los lis- 
tados: tabular con los inte- 
rruptores (si la impresora en 
cuestión dispone de ellos), 
mandar los comandos oportu- 
nos de regulación del ancho, o 
intercalar un programa que se 
encargue de provocar un re- 
torno de carro y un avance de 
línea cuando se llega a la co- 
lumna deseada. Para emplear 
los dos primeros métodos de- 
berás consultar el manual de 
la impresora. El tercero pue- 
des obtenerlo a partir de un 
programa publicado en el nú- 
mero 19-20 del mes de junio, 
en la sección «TRUCOS DEL 
PROGRAMADOR». 

-Algunas impresoras perm- 
mlten representar el mismo 
gráñco en distintos tamaños 
(las EPSON o compatibles, por 
ejemplo). Si tu impresora no 
tiene esta capacidad, deberás 
hacerlo «a mano», constru- 
yendo un programa para el fín. 
En síntesis, se trata de orde- 
nar una impresión gráñca de 
un número doble de puntos, 
duplicar los cuatro primeros 
bits de datos y mandarlos, 
para repetir la operación con 
los cuatro últimos bits. Así 
conseguirás un dibujo cuatro 
veces mayor que el original. 

—La única forma de copiar 
pantallas de los Juegos comer- 
cíales es de protegerlos. A con- 
tinuación, suele ser aconseja- 
ble guardar el contenido de la 
pantalla en una cinta, borrar 
el Juego, cargar el programa 
copiador y volver a poner la 

FUERA CURSOR 

Me gustaría saber cómo qui- 
tar el cursor, es decir, cómo 
hacerlo invisible en la panta- 
lla, sin que por ello dejen de ob- 
tenerse caracteres cuando 
pulsemos la correspondiente 
tecla. Estoy siempre pendiente 
de la sección «Trucos del pro- 
gramador», pero todavía no he 
visto nada de esto. 

Feo. Fernández Rivero 
Málaga 

No sé si te va a servir de mu- 
cho deshacerte del cursor. De 
cualquier forma, sólo tienes 



que poner un parche en la ruti- 
na del BIOS encargada de mos- 
trar el cursor en la pantalla 
para conseguirlo. La referida 
rutina empieza su actuación 
llamando al g anch o situado en 
la posición &HFDA9. Si desa- 
pilas la dirección de retorno 
harás que la ejecución del pro- 
grama vuelva al lugar de lla- 
mada sin haber hecho nada. Lo 
normal es incrementar dos ve- 
ces la pila (INC SP), pero en 
este caso también vale un vul- 
gar POPAF. Para poner el par- 
che desde el BASIC basta con 
hacer: 

X&HFl 



PELIGROS A EVITAR 

He oído decir que no se debe 
insertar un cartucho estando 
el ordenador encendido. Yo lo 
hice y no ocurrió nada. ¿Puede 
es un 



Ernesto Calle Giménez 
Plasencia (Cáceres) 

Soy un lector de vuestra re- 
vista y tengo un grave proble- 
ma. Hace poco puse un cartu- 
cho con el ordenador encendi- 
do y desde entonces se me que- 
da la tele en color negro y no 
funciona. Espero que vosotros 
me digáis algo para solucionar 
este problema. 

Juan Garlos Fariña Peña 
Sta. Cruz de Tenerife 

Conectar o desconectar peri- 
féricos con el ordenador en- 
cendido es algo que no debería 
hacerse. En la práctica, todos 
nos saltamos esta regla y sole- 
mos acabar con un soldador en 
la mano o en el servicio técni- 
co. 

Lo más peligroso es insertar 
un cartucho, porque si dos pis- 
tas se cruzan el desastre suele 
ser inevitable. Hay que tener 
presente que en algunas de las 
patillas de la salida del cartu- 
cho existen tensiones de 
+ -12V. La CPU y el VDP traba- 
jan con SVy al inyectar en al- 
guno de sus busos un votaje 
mayor es muyfácü que se dete- 
rioren. 

Por otra parte, los controla- 
dores de disco, que también se 
alojan en la ranura del cartu- 



cho, pueden dañarse, incluso, 
con el solo hecho de tener al- 
gún contacto en falso, al no ha- 
ber presionado lo sufíciente al 
introducirlo. 



RGB Y CP/M 

Quisiéramos plantear una 
serie de dudas: 

—¿Para qué sirve la salida 
RGB y cómo se utiliza? 

—¿Qué es el sistema operati- 
vo CP/M? 

-¿Qué son los discos forma- 
teados y sin formatear? 

Carlos y Daniel Tomas 
Barcelona 

Xas siglas ROB correspon- 
den a las inicíales de los tres 
colores básicos: red, green y 
blue (rojo, verde y azul). Los 
televisores en color disponen 
de un cañón múltiple con un 
haz de electrones para cada 
uno de estos colores (acerca- 
ros a uno de ellos y podréis dls- 
tiguir un entramado de peque- 
ños puntos manchados con al- 
guno de estos colores). Pues 
bien, a grosso modo, los moni- 
tores ROB están preparados 
para recibir las señales del co- 
lor directamente en el cañón. 
Esto representa una mejora 
notable frente a los monitores 
de vídeo compuesto, ya que en 
aquéllos las señales del color/ 
brillo, sonido, posición, etc. es- 
tán mezcladas y necesitan de 
un demodulador para atacarla 
etapa ñnal, llamada, precisa- 
mente, etapa de ROB. En con- 
trapartida, los monitores ROB 
resultan algo más caros. 

A título de resumen, y para 
que no Incurráis en el error de 
comprar un monitor no com- 
patible con vuestra máquina, 
hay que tener presente que 
suelen encontrarse tres tipos 

cía), que sólo es válida para un 
televisor común; VIDEO COM- 
PUESTO, que se distingue por 
llevar únicamente dos cables; 
y ROB, en el que el número de 
cables varía según los fabri- 
cantes, oscilando entre ocho y 
veinticuatro. 

—Un sistema operativo es 
algo que sirve precisamente 
para eso, para hacer operativo 
el ordenador. Sin la supervi- 
sión de uno de estos progra- 
mas el ordenador no sería, ca- 
paz ni de leer el teclado, ni de 
Imprimir en la pantalla, por 
citar sólo dos ejemplos claros. 
Pues bien, el CP/M es un S.O. 
más, eso sí, el más popular en 
los micros de 8 bits que tienen 
incorporada, al menos, una 
unidad de disco. Sin embargo, 
los controladores de disco de 
las unidades de los MSX no so- 
portan el CP/M (salvo los de 
SPECTRAVIDEO). El estándar 
tiene su propio sistema opera- 
tivo: el MSX-DOS. El motivo 



4 



por el que se descartó el CP/M 
es que resulta casi imprescin- 
dible tener un dlsplay de 80 co- 
lumnas para trabajar con él. 
Aunque, en contrapartida, el 
MSX-D08 es un S.O. que no tie- 
ne nada que envidiarle. De he- 
cho se trata de un híbrido que 
tiene una organización inter- 
na muy parecida al CP/M, pero 
que responde a los comandos 
del MS-DOS. Así, los que hayan 
trabajado con un D3M PC com- 



probarán que muchas órdenes 
son comprendidas por el MSX- 
DOS (en realidad el BASIC 
MSX también es muy parecido 
al del D3M PC). Por su parte, 
los virtuosos del CP/M podrán 
hacer milagros con el 
M0VCPL.COM. 

-Formatear un disco signifi- 
ca ajustarlo a un formato con 
el que pueda trabajar el S.O. 
Imagina una gran hoja de pa- 
pel en una imprenta conte- 



niendo un libro entero. Leerlo 
en ese formato resultaría im- 
posible. Así pues hay que cor- 
tarlo y encuadernarlo (forma- 
tearlo) añnde que sea fácil ac- 
ceder a cualquier información 
contenida en él con sólo mirar 
primero en el índice (el direc- 
torio, en un disco). Natural- 
mente se pierde algo de papel 
en la manipulación. De igual 
manera, un disco pierde espa- 
cio cuando se formatea, por lo 



Output 



que es corriente que un üoppy 
de 3,5 pulgadas de sim pie cara/ 
doble densidad, que original- 
mente dispone de SOOK, quede 
reducido a 360K A decir ver- 
dad suelen perder unos 6K 
más, debido a que se reserva 
las primeras posiciones para 
contener el directorio e Infor- 
maciones imprescindibles 
para el sistema. 
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MSX 2." Edición 
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MSX1 300 PTAS. 



MSX11 150 PTAS. 
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MSX21 175 PTAS. 
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MSX22 175 PTAS. 
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SONY HB-F700S 




Una de las cosas que más sorprenden al tener un HB-F700S de Sony, aparato de la segunda generación de 
MSX es su prestancia profesional y al usarlo su tremenda capacidad gráfica. 



Como ya va siendo habitual en los 
aparatos de la segunda genera- 
ción que están apareciendo, 
este ordenador viene suministrado en 
dos módulos: 

La unidad central (donde están ubica- 
dos la circuitería y las conexiones y el te- 
clado). Este último se conecta a la uni- 
dad central mediante un cable suminis- 
trado con el equipo, poseyendo un total 
de 90 teclas incluyendo 1 2 de control, 5 
de función (1 con SHIFT) 8 de edición y 
cuatro cursores. El tacto de las teclas es 
absolutamente fiable, constituyendo la 
novedad la inclusión de un teclado nu- 
mérico independiente situado a la dere- 
cha y que facilita enormemente el tecleo 
de datos numéricos. Los cuatro curso- 
res están colocados sobre este teclado 
numérico poseyendo todo el conjunto 
un armónico diseño. Las dos patas tra- 
seras permiten regular la inclinación del 
teclado hasta la posición más cómoda 
para el operador. 



iAD CENTRAL 



El meollo del aparato reside en la uni- 
dad central, también blanca y de agra- 
dable diseño, donde como hemos dicho 
anteriormente reside la Unidad Central 
de Proceso, la unidad de disco incorpo- 
rada y todas las conexiones y entradas/ 
salidas. 

En la parte frontal, y de izquierda a de- 
recha encontramos lo siguiente en la 
unidad central' 

- Interruptor principal ON/STAND BY 
con un LED indicador del estado de 
operación. 

- Ranuras 1 y 2 de cartucho. 

- Ranura de la unidad de disco. 

- Tecla de expulsión del diskette y LED 
indicador. 

Bajo la segunda ranura de cartucho 
se encuentra el interruptor RESET, e in- 
mediatamente a su izquierda se en- 
cuentran los dos ports de los joysticks, e 
inmediatamente a su derecha el conec- 
tor del teclado. 

En la parte posterior de esta unidad 
central encontramos, también de iz- 
quierda a derecha las siguientes cone- 
xiones: 

- En primer lugar, el conector para una 
unidad de disco externo. 

- El conector para un magnetófono a 
cassette. 

- El conector Audio/Video (DIN de 6 
terminales). 

- El conector RGB (DIN de 8 termina- 
les). 

Debajo de estas conexiones, y co- 
menzando por la izquierda, nos encon- 



tramos en primer lugar con la tercera ra- 
nura de cartucho (pensada principal- 
mente para la ubicación de un cartucho 
de interface RS-232C); el conector para 
la impresora y una toma de tierra. 

UNIDAD DE DISCO 

Merece la pena destacar que la uni- 
dad de disco suministrada con el equipo 



HB F700S está preparada para trabajar 
con diskettes de doble cara/doble densi- 
dad de 1 Mb (720 Kb formateado) de 
3,5". Esto constituye una novedad, 
puesto que hasta el lanzamiento de este 
modelo las unidades de diskette que fa- 
bricaba SONY tan sólo tenían una capa- 
cidad de 500 Kb (360 Kb formateado) 
trabajando con diskettes de simple cara/ 
doble densidad. 
Al trabajar con una unidad de disco 
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TAPE RECORDER connector (8-pin DIN) 
AUDIO/VIDEO 

output connector (6-pin DIN) 

RGB connector (8-pin DIN) 
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Ground terminal 
PRINTER connector (14-pin) 
L EXTENSION DRIVE connector (34-pin) 



que duplica la capacidad de las anterio- 
res, la hace especialmente indicada 
para aplicaciones profesionales donde 
se requiere una gran capacidad de al- 
macenamiento externo y un ágil manejo 
de los datos. 

Si añadimos a esto la inclusión de un 
diskette con el sistema operativo MSX 
DOS además del MSX Disk Basic resi- 
dente en el aparato, nos daremos cuen- 
ta que la gestión de la información alma- 
cenada en los discos es infinitamente 
versátil y rápida. 



Hagamos un poco de hincapié en las 
características que diferencian a esta 
segunda generación de MSX de la pre- 
cedente: 

Entre las nuevas características que 
incorpora, quizá las más significativas 
son: 

La RAM principal de este equipo es de 
256Kb y la VRAM de 128Kb, lo que nos 
proporciona un total de nueve modos de 
pantalla (Screen a 8). De estas nueve 
SCREEN, las dos primeras (SCREEN 
y 1) corresponden al modo de texto, 
constituyendo el aliciente principal el he- 
cho de poder trabajar hasta con 80 co- 
lumnas en SCREEN o mediante la or- 
den WIDTH 80. 

La resolución gráfica puede llegar 
hasta los 512x212 puntos, utilizando 
una paleta de hasta 1 6 colores de entre 
256 ó 4 de entre 512; o bien 256x212 
puntos con una paleta de hasta 256 co- 
lores... 

Una mayor capacidad de almacena- 
miento de datos, que como hemos visto 
viene asegurada con la inclusión de la 
unidad de disco de 1 Mb. 

La inclusión de un reloj-calendario in- 
corporado. El 700S lleva incorporados 
un calendario y un reloj alimentados por 
una batería de níquel-cadmio que man- 
tiene en funcionamiento- aún cuando la 
alimentación esté desconectada. Esta 
batería se recarga cada vez que se co- 
necta la alimentación del aparato, por lo 
cual su duración es prácticamente ilimi- 
tada. 



FIGURA 1 : MAPA DE MEMORIA 
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De todos modos, quizá la característi- 
ca definitiva en favor de este aparato 
sea el completísimo paquete de softwa- 
re suministrado con el 700S, que incor- 
pora los programas más habituales de 
aplicaciones profesionales: Se trata de: 
Un procesador de Textos, Una Base de 
Datos, una Hoja de Cálculo y un progra- 
ma de Gráficos de Gestión. 

El manejo de este paquete se efectúa 
mediante iconos (menús de selección 
gráfica) que facilitan enormemente el 
trabajo a los usuarios no especializa- 
dos. De esta manera se pueden realizar 
todas las tareas necesarias -grabación/ 
carga de programas, copia de ficheros, 
formateo de discos...- sin necesidad de 
un conocimiento previo de los coman- 
dos de programación. 

Por si esto fuera poco, y para facilitar 
el movimiento del cursor por la pantalla, 
se suministra un «ratón». 



C0NCL1 



INES 



Sony España, ya nos tiene acostum- 
brados a lo bueno. Sirva de precedente 
la extensísima gama -tanto de ordena- 
dores como de periféricos o software- 
que lanzó ya con la primera generación. 

Este equipo, que como hemos co- 
mentado cumple los requisitos máximos 
entre sus homólogos del estándar es ca- 
paz de satisfacer las necesidades de 
cualquiera; bien sea un particular, un es- 
tudiante o un pequeño comerciante. 

Recordemos que la palabra HIT (de 
Hit Bit) significa nada más y nada menos 
que Home Intelligent Terminal (Terminal 
doméstico inteligente), y esto es lo que 
pretende el fabricante en todos sus mo- 
delos. Quizá lo verdaderamente impor- 
tante de este equipo sea su inmensa ca- 
pacidad de ampliación, que incluso per- 
mite convertirlo en terminal inteligente 
de configuraciones más grandes. 

La inclusión de tres ranuras de cartu- 
cho, permite ampliar considerablemen- 
te la configuración, ocupando las ranu- 
ras con un interface de comunicaciones, 
lenguajes o utilidades o incluso conec- 
tarlo directamente con otro ordenador. 
Quizá un pequeño punto negro sea la no 





inclusión de una salida de radiofrecuen- 
cia (RF) para conectarlo a un televisor 
doméstico, pero todos aquellos que ha- 
yan podido comprobar la altísima defini- 
ción de un monitor TRINITRON, lo sal- 
varán inmediatamente. Siendo el caba- 
llo de batalla de la norma la compatibili- 
dad, para este ordenador se abre adicio- 
nalmente el inmenso abanico de los pro- 
ductos fabricados por otros represen- 
tantes de la norma. 

Un atractivo adicional es su precio 
(98.000 ptas. + IVA), lo que en una con- 
figuración de estas características es 
casi un regalo. 



FICHA TECNICA SONY HB-F700S 



CARACTERISTICAS 



Conexiones 
DIRECTAS: 



INTERFACE 

CASSETTE: 

GRAFICOS 

SPRITE: 

RELOJ/ 

CALENDARIO. 

LECTOR DE 

DISKETTES: 



LENGUAJES 
DISPONIBLES: 



-Cassette 

-RGB para monitor video 

- Vídeo/Audio (Monocromo) 

- Impresora 
-Joystick(2) 

- Lector de Diskettes de 3,5 pulgadas 
-Bola gráfica, ratón, etc.. 

Velocidad variable- 1 .200/2.400 B. 

32 Planos. Posibilidad de Multicolor. 

Con batería interna autónoma. 

- Diskette de 3,5 pulgadas 

- Doble cara/Doble densidad 

- Capacidad de 1 MByte 
(720K. formateado) 

5: -Manual de instrucciones 
-Cable Audio/Video 

- Manual «Introducción al 
BASIC MSX 2- 

- «Manual de referencia para 
programación en BASIC MSX 2» 

- Paquete de gestión integrado: 

Procesador de Textos, 

Base de Datos, Hoja de Cálculo. 

Gráficas de Gestión 

- «Ratón» incorporado 

FORTRAN. COBOL. PASCAL. «C-. 
LOGO y EMSAMBLADOR 



ESPECIFICACIONES 



PROCESADOR: 

FRECUENCIA 

CLOCK* 

MEMORIA ROM: 



MEMORIA RAM: 



TEXTO EN 
PANTALLA: 



RESOLUCION 
GRAFICA: 



Z80A 

3,58 MHZ 
64 KBytes 

48 KBytes (BASIC MSX versión 2.0) 
16 KBytes (DISK BASIC) 
384 KBytes 

256 KBytes (memoria principal) 
1 28 KBytes (memoria de vídeo) 

40 caracteres x 24 líneas 
80 caracteres x 24 líneas 

SCREEN 2: 256 x 192 puntos. 
16 colores. 

SCREEN 3: 64 x 48 bloques. 
16 colores. 

SCREEN 4: 256 x 192 puntos. 
16 colores. 

SCREEN 5: 256 x 192 puntos. 

16 colores (BM)" 

SCREEN 6: 51 2 x 21 2 puntos. 

4 colores (BM)' 

SCREEN 7: 51 2 x 21 2 puntos. 

16 colores (BM)" 

SCREEN 8: 256 x 21 2 puntos. 

256 colores (BM)" 

1 6 colores de una paleta de 51 2. 

256 colores (SCREEN 8) 

90 teclas 

teclas de control: 12 

teclas de función: 5 

teclas de edición: 8 

Teclado numénco independiente. 

8 Octavas/3 voces 

¿ coneciores oe ou coniacios. 



*BM: Bit Mapped. Permite acceder a la pantalla punto a pun- 
to de forma que es posible mantener en cada uno un color 
distinto. 



COLORES: 
TECLADO: 

SONIDO: 



MAILING ! 



¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSXCUIB DE MAILING PUEDES AOOUIRIR 



BASIC TUTOR IDEALOGIC 



r 



ADAPTADORES TARJETAS 
INTELIGENTES 
BEE CARD Y SOFTCARD 





<*, HUDSON 









Deja el manual de lado. Inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts. 



No te quedes al margen y disfruta de las tarjetas 
inteligentes. Lo último en soft. PVP 2.850 pts. 



ENVIA HOY MISMO ESTE CUPON 



Nombre y apellidos 







Dirección 
I Población 



I 



CP 



Prov. 



Tel. 



I □ Tutor Basic Ras. 3.500,- □ Adaptador Bee Card Ras. 2.850,- □ Adaptador Softcard Ras. 2.850,- 
I Gastos de envío por cada producto 1 00,- pts. 



| Remito talón bancario de pts. a la orden de Manhattan Transfer, S.A. 

^^viar aMSX CLUB DE MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



¡CALL! 



EL INTERPRETE RASIC 



Conocer el Basic MSX por dentro es uno de los aspectos más interesantes de este artículo. 
Aquí encontrarás lo que sonlos «tokens», un listado de ellos y te enterarás cómo se guardan las variables. 



Cada vez que completas una or- 
den, corres un programa o pul- 
sas una tecla, el intérprete BA- 
SIC se pone en funcionamiento para in- 
tentar comprender qué es lo que deseas 
que haga. Si encuentra un comando vá- 
lido, llama a la rutina correspondiente 
para ejecutarlo. 

Como posiblemente sabrás, los intér- 
pretes se distinguen de los compilado- 
res en que van tomando una a una cada 
instrucción, a diferencia de estos últi- 
mos, que realizan la decodificación en el 
proceso de compilado y generan un có- 
digo objeto con las direcciones en las 
que se encuentran las rutinas para tratar 
los diferentes comandos. El hecho de 
realizar la interpretación de un solo paso 
hace que el compilado sea lento, aun- 
que, en contrapartida, la ejecución re- 
sultará más rápida. 

El BASIC que usan los MSX es, en 
cierto modo, un lenguaje seudocompila- 
do. Cuando se introduce una nueva lí- 
nea desde el teclado, el intérprete tradu- 
ce las órdenes y las variables a un for- 
mato fácil de entender para él, de suerte 
que la ejecución de programa resulte 
más rápida. Un ejemplo aclarará mejor 
este punto: 

10PRINT &H10000 

Prueba a teclear la línea anterior. 
Cuando pulses RETURN el ordenador 
rehusará la línea y emitirá un mensaje 
de error (Overflow). Ello es debido a que 
el intérprete reconoce los símbolos 
«&H» como indicativos de una constan- 
te entera de dos bytes y en este caso se 
necesitarían tres bytes para represen- 
tarla. 



Los ordenadores MSX de al menos 
32K tienen la zona de inicio del BASIC 
en la dirección 32768, y es ahí donde se 
empiezan a recoger todos los datos. Al 
introducir una línea, el intérprete busca 
una palabra reservada. Si no la encuen- 
tra, entiende que se trata del nombre de 
una variable y la almacena como tal. Por 
contra, si reconoce una palabra clave, 
sustituye los caracteres ASC de ésta por 
uno o dos bytes que corresponden a su 
número de token. El empleo de tokens 
hacer ahorrar memoria y agilizar el tiem- 
po de ejecución. 



A fin de comprender mejor el concep- 
to de «token» y la forma en la que se al- 
macenan los programas, observa la ta- 
bla 1 . Esta tabla recoge la disposición in- 
terna del programa del listado 1 . 



LISTADO 1 



10 REM MSX EXTRA 

20 FORX=32768!T032824! 

30 PRINTX; PEEK(X) 

40 NEXT 

Los tokens son representados por un 
número mayor de 1 28, a fin de que no se 
confundan con el nombre de alguna va- 
riable. Puesto que hay más de 1 28 pala- 
bras reservadas, es preciso recurrir a un 
prefijo (255) para conseguir diferenciar- 
las todas. 

Habréis notado que los dos primeros 
bytes de una línea indican la dirección 
de la siguiente. Esto sirve, entre otras 
cosas, como puntero para saber dónde 
hay que dirigirse para encontrar una lí- 
nea determinada. Si ejecutas un GOTO 
en un programa, el intérprete irá miran- 
do los dos bytes siguientes al puntero y 
comprobará si corresponden al número 
de línea solicitado. En el caso de que 
ésta estuviera muy alejada del principio 
del programa, la búsqueda se alargaría, 
de ahí el motivo de que el tiempo de eje- 
cución sea menor en las primeras lí- 
neas. 

GOMO SE GUARDAN LAS 
VARIABLES 

Los MSX manejan cuatro tipos de va- 
riables: enteras, de precisión simple, de 
precisión doble y de cadena. 

Cada una de estas variables ocupa un 
número de bytes determinado (2,4,8 y 3, 
respectivamente), que es empleado a 
su vez como indicativo. Después del in- 
dicativo, vienen dos bytes que enseñan 
el nombre de la variable. Supón que de- 
seas realizar una operación con la varia- 
ble AB. El sistema leerá el valor de las 
posiciones &HF6C2 y &HF6C3 (direc- 
ción inicial de variables) e intentará ha- 
llar a partir de ahí un 8 (distintivo de do- 
ble precisión). Si lo encuentra, compro- 
bará que los próximos bytes sean 65 y 
66 (código de «A» y «B»), así podrá leer 



los ocho bytes siguientes, con la certeza 
de que corresponden a la variable perdi- 
da. Una vez más las variables que se 
definen al principio son encontradas con 
mayor rapidez, por lo que resulta conve- 
niente declarar en las primeras líneas 
las que van a usarse con más frecuen- 
cia. 



TABLA 1 







nidrca de inicio de programa 


o¿ i oy 


1 t 


dirección de la siguiente 






1 mea del programa 


32771 


1 


número de línea 


32772 





(2 bytes» 


32773 


143 


token de REM 


32774 


32 


espac i o 


32775 


I 1 


< M> 


32776 


83 


<S> 


32777 


88 


<X> 


32778 


32 


espacio 


32779 


69 


<E> 


32780 


88 


<X> 


3278 1 


ft4 


<T> 


32782 


82 


<R> 


32783 


65 


<A> 


32784 





marca de fin de línea 


32785 


36 


dirección de la siguiente 


32786 


128 


línea del programa 


32787 


20 


número de línea 


32788 





<2 bytes; 


32789 


130 


Token de FOR 


32790 


88 


<X> 


32791 


239 


< = > 


32792 


29 


constante de precisión simple 


32793 


69 


byte del exponente 


32794 


50 


mantisa <3 bytes) 


32795 


118 




32796 


128 




32797 


217 


token de TO 


32798 


29 


constante de precisión simple 


32799 


69 


byte del exponente 


32800 


50 


mantisa <3 bytes; 


32801 


130 


32802 


64 




32803 





marca de fin de línea 


32804 


49 


dirección de la siguiente 


32805 


128 


línea del programa 


32806 


30 


número de línea 


32807 





(2 bytes; 


32808 


145 


token de PRINT 


32809 


88 


<X> 


32810 


59 


<: > 


32811 


255 


token de PEEK con el 


32812 


151 


prefijo de ester.sion 255 


32813 


40 


< O 


32814 


88 


<X> 


32815 


41 


<)> 


32816 





marca de fin de línea 


32817 


55 


dirección de la siguiente 


32818 


128 


línea del programa 


32819 


40 


número de línea 


32820 





<2 bytes; 


32821 


131 


token de NEXT 


32822 





marca de lin de línea 


32823 





marca de Un de programa 



9 



El ejemplo anterior es válido para 
cualquier tipo de variable numérica que 
no sea de conjunto. Sin embargo, las ca- 
denas no se guardan a continuación del 
nombre. Luego del indicativo (3) y de los 
dos códigos ASC del nombre, viene un 
byte que muestra la longitud (LEN). Los 
dos siguientes señalan el lugar en el que 
se encuentra el contenido de la cadena. 
Cuando una variable alfanumérica es 
borrada, el sistema pone a cero su longi- 
tud y su puntero. Esto puede hacer que 
la zona de cadenas, especificada con 
CLEAR, se llene de datos inutilizados. 

RECOGER LA BASURA 

El manejo de muchas variables alfa- 
numéricas es el punto más débil del BA- 
SIC. Es casi seguro que habrás ejecuta- 
do algún programa con un buen número 
de cadenas. De improviso el ordenador 
hace una pausa y parece que no res- 
ponde a las teclas. Esto se debe a que el 
«Recolector de Basura» (Garbage Co- 
llection) esta haciendo maravillas para 
reorganizar el espacio de las cadenas. 
Lo malo es que muchas veces no hace 
falta tal reorganización, aunque el siste- 
ma no lo sabe y tiene que leer una a una 
todas las variables y realizar muchísi- 
mos cálculos para llegar a conocer qué 
espacios contienen datos útiles y qué 
espacios deben ser eliminados por in- 
servibles. El que los datos estén ya or- 
denados es algo que le trae sin cuidado. 

La reorganización interna de las ca- 
denas se hace cuando el sistema lo con- 
sidera necesario o cuando el usuario or- 
dena averiguar el espacio libre: FRE 
(""). Particularmente he probado a llevar 
al sistema a un límite extremo, dimen- 
sionnado una matriz alfanumérica de 
5000 elementos y asignándole a cada 
uno de ellos un carácter. Al preguntar 
por el espacio libre, el ordenador tarda 
cerca de 20 minutos en dar el resultado. 

MANIPULANDO AL BASIC 

Conocer la forma en que se almace- 
nan los programas en BASIC da la opor- 
tunidad de construir herramientas que 
ayuden a la programación. Desde pro- 
tecciones contra listados, hasta rutinas 
para mover líneaas, pasando por pro- 
gramas que se autoamplían. A conti- 
nuación hay una rutina que pertenece a 
este último tipo. Sirve para leer datos 
entre dos posiciones de memoria, espe- 
cificadas de antemano, y ampliar el pro- 
grama en curso, generando tantas lí- 
neas DATA como sean precisas. Su uso 
puede ser útil para leer las definiciones 
de un SPRITE, transformar en DATAs 
un programa escrito con un ensambla- 
dor, etc. De hecho los cargadores que 
aparecen en esta sección no han sido 
tecleados, simplemente dejo que esta 
rutina haga el trabajo. 

He aquí su listado en ASSEMBLER: 



LISTADO 2 


570 CERRAR: CALL 


(IX+0),0 




















LD 


( IX+l ) , o 


10 


ORG 


45000 


600 


LD 


rjT / Tnn \ 

riL, (lür) 


20 INICIO:EQU 


#B071 


610 


LD 


/ THD \ ITT 

( lUr) , HL 


30 FINAL: EQU 


#B073 


620 


LD 


v AKKAib) , HL 


40 TOP: 


EQU 


#F6C6 


630 


LD 


\ VAKbl H) , HL 


50 ARRAYS:EQU 


#F6C4 


640 


El 


60 VARSIM:EQU 


#F6C2 


650 


RET 




70 


LD 


IfT n A A A 1 

HL, #8001 


660 ; 






80 


DI 




670 ; 






90 


LD 


E, L 


680 ; 






100 


LD 


D, H 


690 HEX: 


ADD 


A II All 

A, 


110 LOOP: 


LD 


B, D 


700 


INC 


ITT 

HL 


120 


LD 


C, E 


710 


INC 


c 


130 


LD 


E, (HL) 


720 


CP 


"9" + l 


140 


INC 


HL 


730 


JR 


C, DIG 


150 


LD 


D, (HL) 


740 


ADD 


A, 7 


160 


LD 


A,D 


750 DIG: 


LD 


1 T_IT \ A 

(HL) , A 


170 


OR 


E 


760 


RET 




180 


EX 


DE, HL 


770 ; 






190 


JR 


»TT T f\f~\r\ 

NZ , LOOP 


780 ; 






200 


EX 


DE, HL 


790 ; 






210 


DEC 


BC 


800 NEVLINE:LD 


( HL ) , U 


220 


DEC 


HL 


810 


INC 


UT 


230 


DEC 


HL 


820 


INC 


c 


240 


PUSH 


BC 


830 


PUSH 


HL 


250 


POP 


IX 


840 


LD 


B, 


260 


SBC 


HL, BC 


850 


LD 


( IX+0) , L 


270 


ADD 


HL, BC 


860 


LD 


(IX+1) , H 


280 


LD 


C.-l 


870 


LD 


TTT f i-r-t , — i y-¡ v 

HL, (TOP) 


290 


JR 


NZ, SILINE 


880 


ADD 


TTT T~t f~* 

HL, BC 


300 


LD 


( IX-K3) , L 


890 


LD 


(TOP) , HL 


310 


LD 


( IX+2) , D 


900 NO: 


LD 


C, ( IX+2) 


320 SIL INE: LD 


DE, ( INICIO) 


910 


LD 


B, ( IX+3) 


330 LINE: 


CALL 


NEVLINE 


920 


INC 


BC 


340 CONT: 


LD 


A, C 


930 


POP 


HL 


350 


CP 


198 


940 


PUSH 


TTT 

HL 


360 


JR 


NC, LINE 


950 


POP 


IX 


370 


LD 


A, (DE) 


960 


LD 


( IX+2) , C 


380 


PUSH 


A T! 

Ar 


970 


LD 


( IX+3) , B , 


390 


SRL 


A 


980 


LD 


(IX+4),#84 
BC.4 


400 


SRL 


A 


990 


LD 


410 


SRL 


A 


1000 


ADD 


HL, BC 


420 


SRL 


A 


1010 


RET 


430 


CALL 


HEX 








440 


POP 


AF 


A continuación el cargador BASIC de 


450 


AND 


15 


la rutina. Un cargador que ha sido gene- 


460 


CALL 


HEX 


rado por otro cargador que a su vez ha 


470 
480 


INC 
INC 


HL 

C 


sido generado por un ensamblador 

(¡uf!): 


490 

500 


LD 
LD 


(HL),"," 
A, (FINAL+1) 








1 


LISTADO 3 


510 


CP 


D 








520 


JR 


NZ, SIGUE 


10 FORX=4 


5000 !TO' 


15166 ! : READ 


530 


LD 


A, (FINAL) 


V$ 






540 


CP 


E 


20 POKEX,VAL("&H"+V$):S=S+P 


550 SIGUE: 


INC 


DE 


EEK(X) 






560 


JR 


NZ.CONT 


30 NEXT 







10 



40 IFS<>19496THEHBEEP:CLS:P 
RINP'HAY UN ERROR" 
50 DATA21,01,80,F3,5D,54,42 
,4B,5E,23,56,7A,B3,EB,20,F6 
, EB, OB, 2B, 2B, C5, DD, El, ED, 42 
, 09, OE, FF, 20, 06, DD, 75, 03, DD 
, 72, 02, ED, 5B, 71, BO, CD, 41 , BO 
,79,FE,C6,30,F8, 1A,F5,CB,3F 
, CB, 3F, CB, 3F, CB, 3F, CD, 35, BO 
,F1,E6,0F,CD 

60 DATA35,B0,23,0C,36,2C,3A 
,74,B0,BA,20,04,3A,73,B0,BB 
, 13,20,D7,CD,41,B0,DD,36,00 
, 00, DD, 36, 01, 00, 2A, C6, F6, 22 
,C6,F6,22,C4,F6,22,C2,F6,FB 
,C9,C6,30,23, 0C,FE,3A,38,02 
,C6,07,77,C9,36,00,23,0C,E5 
,06,00,DD,75 

70 DATA00,DD,74,01,2A,C6,F6 
, 09 , 22 , C6 , F6 , DD, 4E, 02 , DD, 46 
, 03 , 03 , El , E5 , DD , El , DD , 7 1 , 02 
,DD,70,03,DD,36,04,84,01,04 
, 00, 09, C9 



LISTADO 4 



10 CLS: INPUT M DIRC. INICIAL" 

;i 

20 INPUT"DIRC. FINAL ";F 

30 IFK0THENI=I+2~16 

40 IFF<0THENF=F+2~16 

50 IFI>=FTHENBEEP: GOTO 10 

60 POKE&HB071, 1-256*1 NT (1/2 

56) 

70 POKE&HB072, 1/256 

80 POKE&HB073,F-256*INT(F/2 

56) 

90 POKE&HB074.F/256 

100 DEFUSR5=45000! :PRINTUSR 

5(0) 

Cuando tengáis los códigos en me- 
moria, podréis emplear un pequeño 
gestor que se encargue de pedir la di- 
rección inicial y la final y de llamar a la ru- 
tina generadora de líneas DATA. No es 
imprescindible usar este gestor para 
ejecutar la rutina, puede hacerse desde 
uno de vuestros programas, puesto que 
ella misma calculara el final del texto y 
pondrá las DATAs a partir de la última lí- 
nea, numerándolas con incrementos de 
1 . Lo que os ruego es que la llamada a la 
rutina desde vuestro programa se haga 
de forma idéntica a la de la línea 100. 

Por otra parte, es posible realizar un 
programa (una agenda por ejemplo), 
donde los datos se fundan con el progra- 
ma en forma de líneas DATA, en lugar 
de guardarlos de manera independien- 
te. Esta rutina no sirve para el cometido, 
puesto que borra todas las variables y 
salta al modo de edición. Los que quie- 



PROGRAMA LISTAD 0R 



Ullv 






183 


B7 


FILES 


239 


EF 


— 






184 


B8 


LSET 


240 


F0 


< 


± ex? 


81 


END 


185 


B9 


RSET 


241 


Fl 


+ 


130 


82 


FOR 


186 


BA 


SAVE 


242 


F2 


- 


1 O JL 




NFXT 

1» I_- /V í 


187 


BB 


LFILES 


243 


F3 


* 


132 


84 


DATA 


188 


BC 


CIRCLE 


244 


F4 


/ 


133 


85 


INPUT 


189 


BD 


COLOR 


245 


F5 


■Dg * ** 


134 


86 


DIM 


190 


BE 


DRAV 


246 


F6 


AND 


135 


87 


READ 


191 


BF 


PAINT 


247 


F7 


OR 


136 


88 


LET 


192 


CO 


BEEP 


248 


F8 


XOR 


137 


89 


GOTO 


193 


tí 


PLAY 


249 


F9 


EQV 


138 


8A 


RUN 


194 


C2 


PSET 


250 


FA 


IMP 


139 


8B 


IF 


195 


C3 


PRESET 


251 


FB 


MOD 


140 


8C 


RESTORE 


196 


C4 


SOUND 


252 


FC 


\ 


141 


8D 


GOSUB 


197 


C5 


SCREEN 


TOKENS CON 


142 


8E 


RETURN 


198 


C6 


VPOKE 


PREFIJO 




143 


8F 


REM 


199 


C7 


SPRITE 








144 


90 


STOP 


200 


C8 


VDP 




UUY 

ntA 


1 UK.fa.JN 


145 


91 


PRINT 


201 


C9 


BASE 








146 


92 


CLEAR 


202 


CA 


CALL 


i¿y 


1 




147 


93 


LIST 


203 


CB 


TIME 


loU 





K I GH rs 


148 


94 


NEW 


204 


CC 


KEY 


lo 1 



00 


MI Uí> 


149 


95 


ON 


205 


CD 


MAX 


lo¿ 


O A 

0.4 


SGN 


150 


96 


VA IT 


2 06 


CE 


MOTOR 


loo 


Q pr 
OO 


I NT 


151 


97 


DEF 


207 


CF 


BLOAD 


1 O A 

134 


OO 


ABS 


152 


98 


POKE 


208 


DO 


BSAVE 


lOO 


A H 


SQR 


153 


99 


CONT 


209 


DI 


DSKOS 


1 TA 

loo 


A A 
OO 


O V T"> 


154 


9A 


CSAVE 


210 


D2 


SET 


10/7 

lo 1 


oy 


olll 


155 


9B 


CLOAD 


211 


D3 


ÑAME 


loo 


Q A 

oA 


LOG 


156 


9C 


OUT 


212 


D4 


K ILL 


loy 


orí 


EXP 


157 


9D 


LPRINT 


213 


D5 


IPL 


14 




oO 


/*** Í~\C~* 

eos 


158 


9E 


LLIST 


214 


D6 


COPY 


141 


8D 


TAN 


159 


9F 


CLS 


215 


D7 


CMD 


142 


8E 


ATTÍ 


160 


A0 


VIDTH 


216 


D8 


LOCATE 


143 


8F 


FRE 


161 


Al 


LSE 


217 


D9 


TO 


144 


90 


INP 


162 


A2 


TRON 


218 


DA 


THEN 


145 


91 


POS 


163 


A3 


TROFF 


219 


DB 


TAB ( 


146 


92 


LEN 


164 


A4 


SVAP 


220 


DC 


STEP 


147 


93 


STRS 


165 


A5 


ERASE 


221 


DD 


USR 


148 


94 


VAL 


166 


A6 


ERROR 


222 


DE 


FN 


149 


95 


ASO 


167 


A7 


RESUME 


223 


DF 


SPCt 


150 


96 


CHRS 


168 


A8 


DELETE 


224 


E0 


NOT 


151 


97 


PEEK 


169 


A9 


AUTO 


225 


El 


ERL 


152 


98 


VPEEK 


170 


AA 


RENUM 


226 


E2 


ERR 


153 


99 


SPACES 


171 


AB 


DEFSTR 


227 


E3 


STRINGS 


154 


9A 


OCTS 


172 


AC 


DEF I NT 


228 


E4 


USING 


155 


9B 


HEXS 


173 


AD 


DEFSNG 


229 


E5 


1NSTR 


156 


9C 


LPOS 


174 


AE 


DEFDBL 


230 


E6 


• 


157 


9D 


BINS 


175 


AF 


LINE 


231 


E7 


VARPTR 


158 


9E 


C1NT 


176 


B0 


OPEN 


232 


E8 


CSRL I N 


159 


9F 


CSNG 


177 


Bl 


FIELD 


233 


E9 


ATTRS 


160 


AO 


CDBL 


178 


B2 


GET 


234 


EA 


DSKIS 


161 


Al 


FIX 


179 


B3 


PUT 


235 


EB 


OFF 


162 


A2 


STICK 


180 


B4 


CLOSE 


236 


EC 


INKEYS 


163 


A3 


STRIG 


181 


B5 


LOAD 


237 


ED 


POINT 


164 


A4 


PDL 
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viene de la pág. anterior 



165 A5 

166 A6 



PAD 
DSKF 



169 A9 

170 AA 



CVS 
CVD 




173 AD LOF 

174 AE MKIS 

175 AF MKSS 

176 BÜ MKDS 




ran adaptarla, deberán modificar la su- 
brutina NEWLINE, pra actualizar los 
punteros de las variables (&HF6C2a 
&HF6C7) y desplazar todas éstas hacia 
arriba con un LDDR. 



LISTADO DE LOS TOKENS 

Para «parchear» el BASIC es necesa- 
rio tener una lista completa de los TO- 
KENS. Algunos manuales la recogen, 
pero es mejor tener un programa que se 
encargue de editarla por pantalla o im- 
presora cuando lo deseemos. Desde 
aquí os propongo, a título de ejercicio, 
que intentéis averiguar exactamente el 
funcionamiento de las 11 líneas que 



componen el programa. Dos pistas: la lí- 
nea 70 asigna a D el valor de un gancho 
llamado por el sistema cuando está listo 
para tomar una línea del teclado, y los 
POKEs de la línea 90 señalan a la direc- 
ción de ejecución del comando RUN 
(&H73AC). 

Así ver el listado y el 
tador: 



LISTADO 5 



10 GOT030 
20 END 

30 B=&H800E:PRINTCHR$(11);P 
EEK(B) ; HEX$(PEEK(B> ) ; M " ; 
40 FORX=10TO20:PRINTCHR$(VP 
EEK(X) ) ; : flEXT 



50 IFPEEK(B)=Í 
F07.&HC9: EKD 
60 P0KEB,PEEK(B)+1 
70 D=&HFF07 

80 POKED+l,&HFl:POKED+2,&HC 
3 

90 P0KED+3,&HAC:P0KED+4,&H7 

3 

100 POKED.&HFl 

110 PRIITCHR$<12>;" : 

LIST20 



Los tokens con prefijo (255) se pue- 
den obtener sustituyendo el END de la 
línea 20 por LEFT$ y haciendo que la lí- 
nea 30 asigne a B el valor &H800F. Por 
otra parte, es preciso respetar exacta- 
mente todos los espacios y caracteres 
del programa, puesto que en otro caso 
el ordenador se podría bloquear. Lo que 
sí puede hacerse en añadir una línea 
(45) para esperar la pulsación de una te- 
cla. 



Mil:* • MU 



ADES 



Se pueden obtener cosas interesan- 
tes con unos POKEs en la zona del BA- 
SIC. Teclea lo siguiente: 

10GOTO30 

20 SIN 

30 PRINT"HOLA":GOTO30 

Ejecuta el programa y listado. Ahora 
teclea en modo directo: 

POKE&H800F.56. Cuando vuelvas a 
listar, la línea 20 borrará todo lo apareci- 
do hasta el momento. Observa también 
que el programa funciona perfectamen- 
te. Basta con repetir la operación en va- 
rias partes de un programa largo para 
que los extraños tengan difícil obtener 
un listado. 

Otra curiosidad, esta vez para demos- 
trar la necesidad de acabar las subruti- 
nas con un RETURN y no dejar bucles 
FOR/NEXT abiertos: 

10GOSUB20 

20 GOSUB10 

Todo lo que se almacena en la pila del 
BASIC debe sacarse de nuevo, porque 
se consume memoria innecesaria. Eje- 
cuta las dos líneas anteriores y lo veras. 

POR JOAQUIN LOPEZ 




JUEGA COMO UN CAMPEON 

METE EL GOL QUE TE HARA MILLONARIO 




El programa imprescindible para la liga más larga 
de la historia er* 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 



PIDENOS QUINIELAS HOY MISMO SOLO 700 tos. 



2.° GRAN 




Jfl 


^ONCÜBSO 


PROGRAMA 


1 DEL AÑO 



CREA Y ENVIANOS TU PROGRAMA. HAT PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS A MAS DE UN GANADOR QUE OPTARA 
POR EL «LISTADO DE ORO» Y UNA FABULOSA UNIDAD DE DISCO. 




BASES 



1- Podrán participar todos nuestros 
lectores cualquiera sea su edad, con 
uno o más programas. 

2- Los programas se clasificarán en 
tres categorías: 

A- Educativos 

B- Gestión 

C- Entretenimientos 

3- Los programas, sin excepción, debe- 
rán ser remitidos grabados en cas- 
sette virgen, debidamente protegida 
dentro de su estuche plástico en el 
que se insertará el cupón-etiqueta 
que aparece en esta misma página, 
debidamente rellenado. 

4- No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5- Junto a los programas se incluirán 
en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posi- 
bles y todos aquellos comentarios 
que el autor considere de interés. 

6- Todos los programas han de estar es- 
tructurados de modo claro, separan- 



do con REM los distintos apartados 
del mismo. 

PREMIOS 

7- SUPER JUEGOS EXTRA MSX otorga- 
rá los siguientes premios: 

AL PROGRAMA EXTRA MSX DEL 
AÑO 

«EL LISTADO DE ORO» 
Una Unidad de disco 
valorada en más de 80.000 ptas. 

8- Los programas seleccionados por 
nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los si- 
guientes premios en metálico: 

Programa Educativo 10.000 pts. 
Programa de Gestión 10.000 pts. 
Programa de Entretenimiento 
6.000 pts. 

9- SUPER JUEGOS EXTRA MSX se re- 
serva el derecho de publicar fuera de 
concurso aquellos programas de re- 
ducidas dimensiones que sean de in- 
terés, premiando a sus autores. 

FALLO Y JURADO 



10- Nuestro Departamento de Progra- 



mación analizará todos los progra- 
mas recibidos y hará la primera se- 
lección, de la que saldrán los progra- 
mas que publiquemos en cada núme- 
ro de S J. EXTRA MSX. 

1 1- Los programas recibidos no ¡ 
verán, salvo que el autor lo requiera 
expresamente. 

12- La elección del PROGRAMA MSX EX- 
TRA DEL AÑO se hará por votación 
de nuestros lectores a través de un 
boletín que se publicará en el mes de 
octubre de 1986. 

13- El plazo de entrega de los programas 
finaliza el 14 de noviembre de 1986. 

13— El fallo se dará a conocer en el núme- 
ro del mes de enero de 1987, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO EXTRA 
MSX 

Roca iBatlle, 10-12 
bajos 

08023 Barcelona 




NOMBRE DEL PROGRAMA 

CATEGORIA 
PARA K 
INSTRUCCIÓN DE CARGA 



AUTOR: 
EDAD: 

CALLE: N.° 

CIUDAD DP .... TEL.: 

N.° DE RECEPCION 
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20 
30 
40 
50 
60 
70 
80 
90 



?■/.?■/.? t. ?■/ ?■/ ?i ?■/. ?■/. ?■/. ?■/. ?■/ ?■/. ?■/ ?/. ?■/. ?■/. ?■/. 
& EL JUEGO DE LOS ?< 
?<B A R Q U I T O S& 
?< ?< ?< ?< ?< ?< ?< ?< ?/ ?< & ?< S< ?< ?í ?< & ?< 
& ?< & & ?< ?<: S< & ?< 2< 2< & ?/ ?< & ?< 2< & & 
S< ANGEL DE GRACIA S< 
& PARA & 

?< SUPER JUEGOS & 
& EXTRA-M S X S< 
& & & & & & & S¿ S< Se & & $ & 8í £ & fe & 



100 DEFINT A-W: DIMT* (9, 9) : DIMT1* (9, 
9):DIM P( 16) : DIMT2*<20) : Z*="" : KEY O 
FF 

110 SCREEN0: WIDTH 40: COLOR 15,4,2 
120 PRINT"¿QUIERES INSTRUCCIONES <S/ 

N)?" 

130 X*=INKEY*:IF X*<>"S" AND X*<>"N 
"THEN 130 

140 IF X*="N" THEN 430 

150 PRINT:PRINT"E1 juego consiste e 

n adivinar donde tie-ne puestos sus 

barcos el ordenador." 
160 PRINT"E1 juego tiene 10 niveles 
, y en cada ni-vel se juega con un 
numero distinto de barcos." 
170 PRINT 

180 PRINT"Es aconsejable colocar lo 
s barcos de la misma cantidad de cu 
adros que los pide el ordenador , co 
n el -fin de saber en todo momento d 
e que cantidad de cuadros sonlos b 
arcos que tiene el M S X, ya que 
coinciden con los que pide él." 
190 PRINT 

200 PRINT"Para borrar un cuadro hay 
que escribir de nuevo sus coorden 
adas. " 
210 PRINT 

220 PRINT"E1 ordenador nunca coloca 
los barcos adosados, es decir que 



entre dos barcos de cualquier canti 
dad de cuadros, siempre hay cuadra 
s en bl anco. " 

230 PRINT: PRINT "PULSA LA BARRA ESPA 
CI ADORA" 

240 IF STRIG(0)=0 THEN 240 
250 CLS 

260 PRINT "La puntuación se obtiene 
sumando 100 puntos a los marcadores 
, y restando los se-gundos que se h 
aya tardada en tocar o enhundir un 
barco. " 

270 PRINT"Cuando el barco es hundi 

do se aumentan 50 puntos más al mar 
cador . " 

280 PRINT 

290 PRINT" Par a que no podamos entre 
tener al ordenador , cuando está espe 
rando que le digamos si su respuest 
a es AGUA (A) -TOCADO (T) ó HUNDIDO (H) 
, aparece en pantalla un contador d 
e tiempo, y por cada 10 segundos su 
mará 10 puntos al marcador del M S 
X." 

300 PRINT 

310 PRINT"Cuando toca contestar a 1 
a persona, ésta puede pulsar la tec 
la F-l y aparecerá en pantalla un 
consejo al azar, si a continuación 
se pulsa F-2 ésta respuesta será la 

def i ni ti va. " 
320 PRINT 

330 PRINT "Si no nos gusta el consej 
o se pueden escribir otras coordena 
das antes de pulsar F-2. « PULSA L 
A BARRA ESPACI ADORA :*■" 
340 IF STRIG<0)=0 THEN 340 
350 CLS 

360 PRINT "LAS LETRAS DE LAS RESPUES 
TAS HAY QUE ES-CR IB IRLAS SIEMPRE EN 
MAYUSCULAS" 



:n 



I 



370 PRINT:PRINT:PRINT"CUANDO EL ÜRD 
ENADOR NOS PIDA EL NOMBRE NO SE PU 
EDEN ESCRIBIR MAS DE 7 LETRAS, SISE 
ESCRIBEN MENOS HAY QUE PULSAR RETUR 
N PARA QUE SIGA EL PROGRAMA" 
380 PRINT: PRINT: PRINT" ¡ ¡EL M S X CG 
MPROBARA SI SE LE TRATA DE ENGAÑAR 
CON NUESTRAS RESPUESTAS. ! ! " 
390 PRINT: PRINT "CUANDO DE UNA PARTI 
DA A OTRA NO CAMBIA EL JUGADOR, LO 
S MARCADORES ACUMULAN LOS PUNTOS OB 
TENIDOS EN LA PARTIDA ANTERIOR." 
400 PRINT: PRINT "AL GANADOR DE LA PA 
RTIDA SE LE SUMAN 200PUNTOS MAS DE 
LOS CONSEGUIDOS" 

410 PRINT: PRINT" « SUERTE Y QUE 

GANE EL MEJOR. s" 

420 IF STRIG(0>=0 THEN 420 

430 SCREEN2: OPEN"GRP: "FOR OUTPUT AS 

#1 

440 PRESET (80, 50) : PRINTttl, "J U E G 
O" : PRESET (75, 100) : PRINTttl , "D E LO 
S " : PRESET (45,1 50 ) : PR I NTtt 1 , " B ARO 
U I T O S" :FOR K=l TO 1000: NEXT 
450 ON KEY GOSUB 3000,3070 
455 'Tabla en donde el ordenador a 
notará el resultado de sus investig 
aciones sobre los barcos de la pers 
ona 

460 FOR K.=0 TO 9 
470 FOR 1=0 TO 9 
480 T1*(K, I)="V" 
490 NEXT I 
500 NEXT K 

510 ' ***HACER LOS CUADROS*** 

520 CLS:LINE(10, 10) -(110, 110) , 10, BF 

:LINE(150, 10)-(250, 110) , 10, BF 

530 L=10:L1=0:L2=110:L3=0 

540 FOR K=l TO 2 

550 FOR 1=1 TO 11 

560 L 1 =L 1 + 1 : L3=L3+ 1 

570 LINE (L,L1)-(L2,L3) , 1 

580 NEXT I 

590 L= 1 50 : L 1 =0 : L2=250 : L3=0 

600 NEXT K 

610 L=250 

620 FOR K=l TO 2 

630 FOR 1=1 TO 11 

640 L=L-10 

650 PRESET (L, 110) : DRAW " U 1 00C 1 " 
660 NEXT I 
670 L=120 
680 NEXT K 
690 L=115 



700 FOR 1=1 TO 2 
710 J=12:M=64 
720 FOR K=0 TO 9 
730 PRESET ( L , J ) : M=M+ 1 
740 PRINTttl,CHR*(M) 
750 J=J+10 
760 NEXT K . 
770 L=139 
780 NEXT I 
790 L=145:J=3 
800 FOR 1=1 TO 2 
810 FOR K=0 TO 9 
820 PSET(L, J) , 15:PRINT#1,K 
830 L=L+10 
840 NEXT K 
850 L=5 
860 NEXT I 

870 PSET(145,3) ,4:PSET(5,3) ,4 
880 PSETÍ10, 115) ,4: PRINTttl, "ORDENAD 
OR-P: ":PSET(95, 115) , 4: PRINT#1 , PO 
890 PSET(150, 115) , 4: PRINTttl, "PERSON 
A-P: " :PSET(220, 115) , 4: PRINT#1 , PP 
900 ? ***PONER LOS BARCOS*** 
910 PRESET (10, 130) : PRINTttl , "ELIGE N 
IVEL DE JUEGO (0-9) : "; 

920 X*=INKEY*:IF X*="" THEN 920 ELS 
E IF X*<"0".OR X*>"9" THEN 920 ELSE 

PRINTttl , X* 
930 FOR K=l TO 500: NEXT K 
940 LINE (10, 130) -(255, 140) , 4,BF:N=V 
AL(X*) 

950 PRESET (10, 130) :PRINT#1, "nivel: " 
: PRESET (50, 130) : PRINTttl, N 
960 Il=N*2+2: 12=1 1 : PSET (70, 130) ,4:P 
RINTttl, "cuadros: ":PSET(125, 130) ,4:P 
RINTttl , I 1 

970 LINE(0, 140) -(255, 191) , 10,BF:COL 
OR 1 

980 IF N=0 THEN PSET ( 10, 141 ) , 10: PRI 
NTttl,"DOS BARCOS DE UN CUADRO" : GOTG 
1090 

990 PSET (0, 141) , 10: PRINTttl, " CUATRO 
BARCOS DE UN CUADRO" : PSET (0, 150) , 1 



1000 ON N GOTO 1090,1010,1020,1030, 
1040, 1050, 1060, 1070, 1080 
1010 PRINTttl," UN BARCO DE DOS CUAD 
ROS": GOTO 1090 

1020 PRINTttl," DOS BARCOS DE DOS CU 
ADROS":GOTO 1090 

1030 PRINTttl," TRES BARCOS DE DOS C 
UADROS" :GOTO 1090 

1040 PRINTttl," DOS BARCOS DE DOS CU 
ADROS Y UNO DE CUATRO": GOTO 1090 




1050 PRINT#l," UN BARCO DE DOS CUAD 
ROS , UNO DE TRES Y UNO DE CINCO" : GO 
TO 1090 

1060 PPINTttl." DOS BARCOS DE DOS CU 
ADROS , UNO DE TRES Y UNO DE CINCO" 
:GQTO 1090 

10^0 PRINT#1," UN BARCO DE DOS CUAD 
ROS. UNO DE TRES, UNO DE CUATRO Y U 
NO DE CINCO": GOTO 1090 

1030 PRINTttl," DOS BARCOS DE DOS CU 
ADROS, UNO DE TRES, UNO DE CUATRO 

Y UNO DE CINCO" 
1090 FOR K-l TO II 

1100 PRESET (10, 1S0) :PRINT#1, "ESCRIB 

E LETRA-NUMERO: ": s GOSUB 4160 

1110 L 1=L 1 + 1 50 s L«L+ 1 : L2=*L 1 +5s L3=L+ 

S 

1120 IF P0INT<L2,L3)=12 THEM L INE (L 
l + l,L+l>-(L.l+9,L+9) , 10, BF: LIME (10, 1 
B0)-?255, 191.) , 10,BF:K=K-1:GOTO 1100 
1130 IF POINT (L2+10.L3) =12 AND POIM 
T (L2~ 10, L3) =12 THEM 1190 ELSE IF PO 
INTCL2, L3+t0)=Í2 AND POINT (L2, L3--10 
) =12 THEM 1190 ELSE 1150 
1150 IF POINT (L2-10,L3) =12 AND POIN 
T(L2-20,L3)=12 AND POINT (L2-30, L3) = 
12 AND POINT (L2-40,L3) =12 AND POINT 
<L2-50,L3)=12 THEN 1190 

1160 IF POINT <L2+10,L3> =12 AND POIN 
T ( L2+20 , L3 ) = 1 2 AND PO I NT ( L2+30 , L3 ) = 
12 AND POINT (L2+40. L3) =12 AND POINT 
(L2+50, L3) =12 THEN 1190 
1170 IF POINT (L2, L3-10) =12 AND POIN 
T(L2,L3-20)=12 AND POINT (L2, L3-30) = 
12 AND POINT (L2, L3-40) =12 AND POINT 
(L2, L3-50) =12 THEN 1190 
1180 IF POINT (L2.L3+10) =12 AND POIN 
T (L2, L3+20) =12 AND POINT (L2, L3+30) = 
12 AND POINT (L2, L3+40) =12 AND POINT 
(L2, L3+50) =12 THEN 1190 ELSE 1200 
1 190 LINE (10, 180) - (255, 191 ) , 10, BF: G 
OTO 1 1 00 

1200 LINE(Ll+l,L+l)-(Ll+9 n L+9) - 12 < B 
F 

1210 LINE (170, 180) -(255, 191) , 10, BF 
1220 NEXT K 

1230 LINE(0, 180) -(255, 191) , 10, BF 
1240 PRESET ( 10, 180) : COLOR 15:PRINT# 
1, "ESTOY COLOCANDO MIS BARCOS" : PLAY 
" V 1 5L6407CDEFGABBAGFEDC " 
1250 FOR F=0 TO 9 
1260 FOR C=0 TO 9 
1270 T*(F,C)="V" 
1280 NEXT C 







1290 NEXT F 

1300 W=4: W1=0:W2=0: W3=0:FOR K=0 TO 
19: T2$ (K) = "V" : NEXT K 
1310 FOR K=l TO II 
1320 IF N=0 THEN GOSUB 3270 
1330 ON N GOSUB 3270,3110,3130,3150 
, 3170, 3190, 3210, 3230, 3250 
1340 NEXT K 



¡0 L I NE (0,1 80 ) - ( 255 , 1 9 1 ) , 1 , BF 



PUE 



1 360 PRESET (10,1 80 ) : PR INT# 1 , " YA 
DE EMPEZAR EL JUEGO": COLOR 1 
1370 FOR K=l TO 300: NEXT K 
1380 '***EMPIEZA EL JUEGO*** 
1390 LINE(0, 140) -(255, 190) , 10, BF 
1400 IF Z*<>" " THEN 1440 
1410 PSET (10, 150) , 10:PRINT#1, "ESCRI 
BE TU NOMBRE: " ; 

1420 Y*=INKEY*:IF Y*="" THEN 1420 E 
LSE IF ASC(Y*)=13 THEN 1440 
1430 BEEP:PRINT#1,Y*;:Z*=Z*+Y*: IF L 
EIM(Z*)<7 THEN 1420 

1440 PSET ( 10, 170) , 10:PRINT#1 , "¿QUIE 

N JUEGA PRIMERO? O-P:"; 

1450 X*=INKEY*: IF X*="" THEN 1450 E 

LSE IF XÍO-O" AND X*<>"P" THEN 145 



1460 PRINTttl , X* 

1470 COLOR 15: PSET (150, 130) ,4:PRINT 

#1, "JUEGA: ".-COLOR 1 

1480 IF X*="0" THEN 2010 

1490 ? ***JUEGO DE LA PERSONA*** 

1500 INTER VAL OFF : S=0 : COLOR 15: LINE 

( 200 , 1 30 ) - ( 255 , 1 39 ) , 4 , BF : PSET ( 200 , 1 

30) ,4:PRINT#1, Z*: TIME=0: COLOR 1 

1510 LINE(0, 140) -(255, 191) , 10,BF:K,_ 

Y ( 1 ) ON 

1520 PSET (10, 150) , 10:PRINT#1, "ESCRI 
BE LETRA-NUMERO: " ; 
1530 GOSUB 4160: L1=L1+10: L=L+10 
1540 C=VAL(Y*> :F=ASC(X*)-65:KEY(2)u 
FF 
1 550 
1 560 



THEN GOSUB 1640 
OR T*(F,C)="H" 
1510 



IF T*(F,C)="B" 
IF T*(F,C)="T" 
OR T*(F,C)="A" THEN 
1570 GOSUB 2750 

1580 LINE(0, 140) -(255, 191) , 10,BF:TP 
=TP+ I NT ( T I ME / 50 ) : T$ (F, C) =" A" : BOTOk^ 
10 

1 590 PLAY " V 1 0O3FEGACB " : PSET (10,170) 
,10: PR I NT# 1 , " TOCADO " ; " TOCADO 
CADO 
1 TO 
1 600 
1610 
1620 



! i o 

": "TOCADO " : T* (F, C) ="T" : FOR K= 
2000: NEXT 

LINE (Ll + 1 , L+l ) - (Ll+9, L+9) , 1 , BF 
PP=100+PP-INT (TIME/50) -TP' 
COLOR 15: LINE (220, 115) -(255, 12 




ri\uüi\i ii n i-i 




T*(F+l,C) 



4) , 4,BF:PSET(220, 115) , 4: PRINTttl , PP¡. 
TP=0: COLOR 1 

1630 11=11-1: IF 11=0 THEN 4210 ELSE 
2010 

1640 "Rutinas en donde el ordenador 
comprueba si sus barcos son tacaau 
s o hundidos 
1650 IF F=0 THEN té7& 
1660 IF T$(F~1,C)="T" OR T*(F-1,C>= 
"B" THEN 1770 
1670 IF F=9 THEN 1690 
1680 IF T*(F+1,C)="T" OR 
" B" THEN 1770 
1690 IF C=0 THEN 1710 

1700 IF T*(F,C-1)=-'T" OR T*(F,C-1)= 

"B" THEN 1770 

1710 IF C=9 THEN 1730 

1720 IF T*(F,C+1)="T" OR T$ ( F , C+ 1 ) ■■■■ 

" B" THEN 1770 

1730 T* <F, C) ="H" : PP=PP+5í^ 

1 740 PLAY " V 1 2L 1 0O7GFEDCBAL4C " 

1750 PSET(10, 170) , 10: PRINTttl, "HUNDx 

DO HUNDIDO HUNDIDO HUNDIDO" : FOR K=l 

TO 2000:NEXTK 

1760 RETURN 1600 

1770 FOR K=5 TO 

1780 IF T2*(K)=STR*(F)+STR*(C> THEN 

T2*(K)="0" 
1790 NEXT K 

1800 ON N GOTO 1810,1820,1830,1840, 

1850, 1860, 1870, 1880, 189w 

. 310 SCREEN 1:PRI NT "RUTINA MAL EN L 

A LINEA: 1800": PRI NT: LIST 1800 

. 320 W=5: Wl=6: GOSUB 1900: RETURN 159 



. 330 W=5: W 1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1 900 : RETURN 1 590 

. 340 W=5:W 1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1900: W=9:W1= 10: GOSUB 1900:RLiu 
r\N 1590 

1850 W=5:W1=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1 900 : W=9 : W 1 = 1 2 : GOSUB 1 900 : RETUR 
N 1590 

1860 W=5:W 1=6: GOSUB 1900: W=7 : Wl=9: G 
OSUB 1900: W= 10: Wl= 14: GOSUB 1900: RET 
URN 1590 

1870 W=5: Wl=6: GOSUB 1900: W=7: W1=B: G 
OSUB 1900: W=9: Wl = l 1 : GOSUB 1900: W= 12 
:W1= 16: GOSUB 1900: RETURN 1590 
1880 W=5:W1=6:G0SUB 1900: W=7: W 1=9: G 
OSUB 1900: W= 10: W 1=1 3: GOSUB 1900: W=l 
4: Wl =18: GOSUB 1900: RETURN 1590 
1890 W=5: Wl=6: GOSUB 1900: W=7: Wl=8: G 
OSUB 1900: W=9: Wl=l 1 : GOSUB 1900:W=12 
: Wl=15: GOSUB 1900: W=16: Wl=20: GOSUB 



THEN W3=W3+1 



1900: RETURN 1590 
1900 W2=W:W3=W-1 
1910 FOR K=W TO Wl 
IF T2*(K)="0" 
NEXT K 

IF W3 0W1 THEN RETURN 
W=W2 

FOR K=W TO Wl 
T2$ <K) ="H" 
NEXT K 
1990 RETURN 1730 

2000 '***JLIEGA EL ORDENADOR*** 
2010 COLOR 15: LINE (200, 130) - (255, 13 
9) , 4, BF:PSET(200, 130) ,4: PRINTttl, "M 
5 X" : TIME=0: COLOR 1 
2020 LINE (0, 140) - (255, 191 ) , 10, BF 
2030 PSET (10,1 50 ) , 1 : PR I NTtt 1 , " ESTA 
ES MI RESPUESTA: " 



1920 
1930 
1 940 
1950 
1960 
1970 
1 980 



2040 
060 
2050 
2060 
2070 
2080 
2090 
F+65) 
2100 



F=H:C=Q:IF T1$(F,C)="H" THEN 2 



IF A>0 THEN 2450 
F=INT (RND ( 1 ) *10) 
C=INT (RND (2) *10) 
I F T 1 * ( F , C ) O " V " THEN 2060 
L=C * 1 0+ 1 50 : L 1 =F * 1 0+ 1 : X *=CHR$ ( 
: Y*=STR$ (C) 

PSET (10, 160) , 10: PRINTttl, "COORD 
ENADAS: " ; X*; "-" ; Y* 

2110 PSET (10, 170) , 10: PRINTttl , "AGUA- 
A,TOCADO-T,HUNDIDO-H: " : ON INTERVAL- 
50 GOSUB 2980: INTERVAL ON 
2120 Z 1 $= INKEYS : I F Z1$=""THEN 2120 
2130 IF Z1*<>"A" AND Z1*<>"T" AND Z 
14<>"H" THEN 2120 

2140 PSET (215, 170) , 10: PRINTttl , Z 1* 
2150 L2=L+5:L3=Ll+5 
2160 P=P0INT(L2,L3) : GOSUB 2820 
2170 IF Z1*="A''AND PO10 THEN 2200 
2180 IF Z1*="H" AND P<>12 OR Z1*="T 
" AND P012 THEN 2200 



ELSE 2310 
NO 
179 



2190 IF Z1*="H" THEN 2210 
2200 PSET (10,1 80 ) , 1 : PR I NTtt 1 , " ¡ 
ME ENGAmES! ! ": LINE (10, 170) -(255 
) , 10, BF: GOTO 2110 

2210 I F P ( 1 ) < > 1 2 AND P ( 1 ) < > 1 AND P ( 
2)<>12 AND P(2)<>1 AND P(3)<>12 AND 
P(3)<>1 AND P(4)<>12 AND PC4XM T 
HEN 2300 

2220 IF P(1)<>1 AND P(l)<>12 THEN 2 
230 ELSE 2240 

2230 IF P(2)=l AND P(6)<>1 AND P(6) 
<>12 THEN 2300 ELSE IF P(2)=l AND P 
(6)=1 AND P(0)<>1 AND P(0)<>12 THEN 
2300 ELSE IF P(2)=l AND P<6)=1 AND 
P(0)=1 AND P(14)<>1 AND P(14)<>12 




JDQi~\QC 



1 



THEN 2300 ELSE IF P(2)=l AND P(6)=l 

AND P(0)=1 AND P(14)=l THEN 2300 
2240 IF P(2)<>1 AMD P(2)<>12 THEN 2 
250 ELSE 2260 

2250 IF P(l)=l AND P(5)<>1 AND P(5) 
OI 2 THEN 2300 ELSE IF P(l)=l AND P 

(5) =1 AND PÍ9XM AND P(9)<>12 THEN 
2300 ELSE IF P(l)=l AND P(5)=l AND 
P<9>=1 AND P(13)01 AND P(13)012 

THEN 2300 ELSE IF P(l)=l AND P<5)=1 

AND P(9)=l AND P(13)=l THEN 2300 
2260 IF P(3)01 AND P(3)012 THEN 2 
270 ELSE 2280 

2270 IF p(4)=l AND P(8)<>1 AND P<8) 
OI 2 THEN 2300 ELSE IF P(4>=1 AND P 
(8)=1 AND P(12)01 AND P<12>012 TH 
EN 2300 ELSE IF P(4)=l AND P(8)=l A 
ND P(12)=l AND P(16)01 AND P(16)<> 
12 THEN 2300 ELSE IF P(4)=l AND P(8 
)=1 AND P(12)=l AND P<16)=1 THEN 23 
00 

2230 IF P(4)01 AND P(4)012 THEN 2 
290 ELSE 2200 

2290 IF P(3)=1AND P(7)0 1AND P(7)<> 
12THEN 2300ELSE IF P ( 3 ) = 1 AND P<7)=1 
AND PdDOlAND P < 1 1 ) 012THEN 2300E 
LSEIF P(3)=1AND P(7)=1AND P(11)=1AN 
D P ( 1 5 ) < > 1 AND PU5X > 1 2THEN2300ELSE 

IF P(3)=1AND P(7)=1AND P(11)=1AND 
P(15)=1THEN 2300ELSE 2200 
2300 T1*(F,C)="H":G0T0 2650 
2310 IF Z1$="T" THEN 2340 
2320 T1$(F,C)="A" 

2330 LINE(L+l,Ll + l)--<L+9 s Ll+9) , 15, B 
F: TM=TM+INT (TIME/ 50) : GOTO 1500 
2340 I F P < 1 )< > 1 2 AND P ( 1 ) < > 1 AND P < 
2)<>12 AND P(2)<>1 AND P(3)<>12 AND 
P(3)<>1 AND P(4)012 AND P(4)<>1 T 
HEN 2200 

2350 IF P(l>01 AND P< 1)0-12 THEN 2 
360 ELSE 2370 

2360 IF P(2)=l AND P<6)01 AND P<6) 
O- 12 THEN 2200 ELSE IF P(2)=l AND P 

(6) =1 AND P(0)O1 AND P(0)O12 THEN 
2200 ELSE IF P(2)=l AND P(6>=1 AND 
P(0)=1 AND P(14)01 AND P< 14)012 

THEN 2200 ELSE IF P<2)=1 AND P(6)=l 

AND P(0)=1 AND P(14)=l THEN 2200 
2370 IF P(2X>1 AND P(2)<>12 THEN 2 
380ELSE 2390 

2380 IF P(l)=l AND P(5)<>1 AND P(5) 
<> 12 THEN 2200 ELSE IF P(l)=l AND P 
(5)=1 AND P(9)Oi AND F(9)<>12 THEN 
2200 ELSE IF P(l)=l AND P<5)=1 AND 
P<9)=1 AND P(13>01 AND P(13)<>12 



THEN 2200 ELSE IF P(l)=l AND P(5)=l 

AND P<9.)=1 AND P(13)=l THEN 2200 
2390 IF P(3)01 AND P(3)<>12 THEN 2 
400 ELSE 2410 

2400 IF P(4)=l AND P(8X>1 AND P(8) 
OI 2 THEN 2200 ELSE IF P(4)=l AND P 
(8)=1 AND P(12X>1 AND P(12X>12 TH 
EN 2200 ELSE IF P<4)=1 AND P(8)=l A 
ND P<12)=1 AND P<16)01 AND P(16)<> 
12 THEN 2200 ELSE IF P(4)=l AND P(8 
)=1 AND P(12)=l AND P(16)=l THEN 22 
00 

2410 IF P(4)01 AND P(4X>12 THEN 2 
420 ELSE 2430 

2420 IF P(3)=l AND P(7X>1 AND P(7) 
OI 2 THEN 2200 ELSE IF P(3)=l AND P 
<7)=1 AND Pili) OI AND P( 11)012 TH 
EN 2200 ELSE IF P(3)=l AND P(7)=l A 
ND P(ll)=l AND P(15X>1 AND P(15)<> 
12 THEN 2200 ELSE IF P(3)=l AND P(7 
)=1 AND P(ll)=l AND P(15)=l THEN 22 
00 

2430 T1$<F,C)="T": IF A=0THEN V=C 
2440 GOTO 2650 

2450 ? ***BU5CA COORDENADAS CUANDO H 
AY ALGUNO TOCADO*** 

2460 ON INTERVAL=500 GOSUB 2640: INT 
ERVAL ON 

2470 IF COV THEN 2550 

2480 IF (F-1X0 THEN 2510 ELSE F=F- 
1 

2490 IF T1*(F, C) ="V" THEN 2090 
2500 IF T1*(F,C)="T" THEN 2480 
2510 F=H: C=Q 

2520 IF (F+l ) >9THEN 2550 ELSE F=F+1 
2530 IF T1*(F,C)="V" THEN 2090 
2540 IF T1*(F,C)="T" THEN 2520 
2550 F=H:C=Q 

2560 IF (C+l ) >9THEN 2590 ELSE C=C+1 
2570 IF T1*<F,C)="V" THEN 2090 
2580 IF T1*<F,C)="T" THEN 2560 
2590 F=H:C=Q 

2600 IF (C-l) <0THEN 2480 ELSE C=C-1 
2610 IF T1*(F,C)="V" THEN 2090 
2620 IF T1*<F,C)="T" THEN 2600 
2630 GOTO 2470 

2640 A=0: INTERVAL OFF: RETURN 2060 
2650 IF T1*(F,C)="H" THEN PO=PO+50 
2660 PO=PO+ 100- INT (TIME /50) -TM: LINE 
(L+l,Ll + l)-(L+9 ! ,Ll+9) , 1 , BF: LINE ( 100 
, 11 5) -(135, 124) ,4,BF:PSET(95, 115) ,4 
: COLOR 15 : PRINTttl , PO: TM=0: COLOR 1 
2670 H=F: Q=C: 12=12-1: IF 12=0 THEN42 
10 

2680 IF A=0 THEN 2730 



£~**mm*-'h DOi~i!~OQi~!OC 
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2690 IF P(l)=10 GR P<1)=15 THEN TI* 
(F,C-l)= ,, A n 

2700 IF P(2)=10 ÜR F' ( 2 ) = 1 5 THEN TI* 
<F,C+1)="A" 

2710 IF P(3)=10 DR P ( 3 ) = 1 5 THEN TI* 
(F-l , C) ="A" 

2715 IF F=9 THEN 2730 
2720 IF P(4)=10 OR P(4) 
(F+1,C)="A" 
2730 IF T1*(F,C)="H" 
A=A+1 

2740 GOTO 1500 
2750 PSET (10, 170) , 10 
2760 FÜR Kmt Tü 6 

PRINT#1 , "AGUA " ; 
FOR 1=1 Tü 5: BEEP: NEXT 
NEXT K 

LINE(Ll + l,L+l)-<LH~9,L+9> , 15, B 



15 THEN TI* 



THEN A=0 ELSE 



2770 
2780 
2790 
2800 
F 

28 1 
2820 
2830 
2840 
2850 



RETURN 

P(1)=PÜINT(L2-10,L3) 
P(2)=POINT(L2+10,L3) 
P(3)=POINT(L2,L3-10) 
P(4)=PÜINT(L2,L3+10) 



2870 
2880 
2890 
2900 
2910 
2920 
2925 
2930 
2940 
2950 
2960 
2970 
2980 



2860 P(5)=POINT(L2-20,L3) 
P ( 6 ) =PO I NT ( L2+20 , L3 ) 
P < 7 ) =PÜ I NT ( L2 , L3-20 ) 
P(8)=PüINT(L2,L3+20) 
P ( 9 ) =PO I NT ( L2-30 , L3 ) 
P(0)=POINT(L2+30,L3) 
P(ll)=POINT(L2,L3-30> 
P ( 12) =PGINT (L2, L3+30) 
P ( 1 3 ) =PO I NT ( L2-40 , L3 ) 
P(14)=POINT(L2+40,L3) 
P(15)=POINT(L2,L3-40> 
P ( 16) =PÜINT (L2, L3+40) 
RETURN 

S=S+ 1 : L I NE ( 230 , 1 8 1 ) - ( 255 ,191) 
10,BF:PSET<175, 181) , 10: PRINT#1 , "TIE 
MPü:";S:IF 3=10 THEN 2990 ELSE RETU 
RN 

2990 COLOR 15:S=0:LINE(100, 115) -(13 

5, 124) !I 4,BF:PO=PO+10:PSET(95, 1 15) ,4 

:PRINT#l,PO: COLOR 1 : RETURN 

3000 PSET ( 1 , 1 84 ) , 1 : PR I NT# 1 , "MI CG 

NSEJO AL AZAR ES : "; 

3010 F=INT(RND(3> *10> 

3020 C=INT(RND(4) #10) 

3030 IF T*(F,C)="T" OR T*(F,C)="H" 

DR T*(F,C)="A" THEN 3010 

3040 X 1 *=CHR* ( F+65 ) : Y 1 *=STR* ( C ) 

3050 FRINT#1, XI*; Yl* 

3060 KEY ( 1 ) OFF : KEY ( 2 ) ON : RETURN 1 520 

3070 L=F*10+10 

3080 L1=C* 10+10 



3090 PSET (175, 150) , 10: PRINTttl , XI*; " 
-" ; Yl* 

3100 KEY (2) OFF: RETURN 1550 

3105 'Rutinas mediante las cuales e 

1 ordenador coloca sus barcos 

3110 IF K<5 THEN GOSUB 3270: RETURN 

3120 GOSUB 3280: RETURN 1350 

3130 IF K<5 THEN GOSUB 3270 : RETURN 

3140 GOSUB 3280: GOSUB 3280: RETURN 1 

350 

3150 IF K<5 THEN GOSUB 3270: RETURN 
3160 GOSUB 328^: GOSUB 3280: GOSUB 32 
80: RETURN 1350 

3170 IF K<5 THEN GOSUB 3270: RETURN 
3180 GOSUB 3280: GOSUB 3230: GOSUB 33 
00: RETURN 1350 

3190 IF K<5 THEN GOSUB 3270: RETURN 
3200 GOSUB 3280: GOSUB 3290: GOSUB 33 
10: RETURN 1350 

3210 IF K<5 THEN GOSUB 3270: RETURN 

3220 GOSUB 3280: GOSUB 3280: GOSUB 32 

90: GOSUB 3310: RETURN 1350 

3230 IF K<5 THEN GOSUB 3270: RETURN 

3240 GOSUB 3280: GOSUB 3290: GOSUB 33 

00: GOSUB 3310: RETURN 1350 

3250 IF K<5 THEN GOSUB 3270: RETURN 

3260 GOSUB 3280: GOSUB 3280: GOSUB 32 

90: GOSUB 3300: GOSUB 3310: RETURN 135 



3270 GOSUB 3320: GOSUB 3370 : RETURN: R 
EM RUTINA DE FORMAR BARCOS DE UN CU 
ADRO 

3280 B=l: GOSUB 3320: GOSUB 3460:T*(F 
,C)="B": RETURN: REM RUTINA DE FORMAR 

BARCOS DE DOS CUADROS 
3290 B=2: GOSUB 3320: GOSUB 3460: T*(F 
, C)="B": RETURN: REM RUTINA PARA FORM 
AR BARCOS DE TRES CUADROS 
3300 B=3: GOSUB 3320: GOSUB 3460:T*(F 
,C)="B": RETURN: REM RUTINA PARA FORM 
AR BARCOS DE CUATRO CUADROS 
3310 B=4: GOSUB 3320: GOSUB 3460: T*(F 
,C)="B": RETURN: REM RUTINA PARA FORM 
AR BARCOS DE CINCO CUADROS 
3320 F= I NT ( RND ( 6 ) #10) 
3330 C=INT(RND(7) *10) 
3340 IF T*(F,C)="B" THEN 3320 
3350 E=INT (RND (-TIME) *4+l) 
3360 RETURN 
3370 IF F=0 THEN 3390 

3380 IF T*(F-1,C)="B" THEN RETURN 3 

270 

3390 IF C=0 THEN 3410 

3400 IF T*(F,C-1)="B M THEN RETURN 3 

270 



I 



3410 
3420 
270 
3430 
3440 
270 
3450 
3460 
3470 
HACIA 



IF 
IF 

IF 
IF 



F=9 THEN 3430 
T*(F+1,C)="B" 



THEN RETURN 3 



C=9 THEN 3450 
T*(F,C+1)="B" THEN RETURN 



T*(F,C)="B":RETURN 
ÜN E GOTG 3470,3640,3810,3980 
FÜR K=l TO BsREM FORMA BARCOS 
ARRIBA 



3480 IF F<B THEN 4150 

3490 IF T$ (F-K, C) ="B" THEN 4150 

3500 IF C=0 THEN 3530 

3510 IF T$(F,C-1)="B" THEN 4150 

3520 IF T$(F-K,C~1)="B" THEN 4150 

3530 IF C=9 THEN 3560 

3540 IF T$(F, C+l ) ="B" THEN 4150 

3550 IF T$ (F-K, C+l ) ="B" THEN 4150 

3560 IF F=B THEN 3580 

3570 IF T$ (F~ (B+l ) , C) ="B"THEN 4150 
3580 IF F=9 THEN 3600 
3590 IF T*(F+1,C)="B" THEN 4150 
3600 NEXT K 

36 1 W=W+ 1 : T2* ( W ) =STR* ( F ) +STR* ( C ) 
3620 FOR K=1T0 B : T$ ( F-K , C ) = " B " : W=W-+ 
1 :T2* (W) =STR* (F-K) +STR* <C) : NEXT 
3630 RETURN 

3640 FOR K=l TO B-.REM FORMA BARCOS 

HACIA LA DERECHA 

3650 IF CX9-B) THEN 4150 

3660 IF T$(F,C+K)="B" THEN 4150 

3670 IF F=0 THEN 3700 

36S0 IF T$(F~1,C)="B" THEN 4150 

3690 IF T*(F-1, C+K) ="B" THEN 4150 

3700 IF F=9 THEN 3730 

3710 IF T*(F+1,C)="B" THEN 4150 

3720 IF T$ (F+l , C+K) ="B" THEN 4150 

3730 IF C=0 THEN 3750 

3740 IF T$(F,C-1)="B" THEN 4150 

3750 IF C=(9-B) THEN 3770 

3760 IF T* (F,C+ (B+l ) ) ="B"THEN 4150 

3770 NEXT K 

3780 W=W+1 : T2* (W) =STR* <F) +STR* (C) 
3790 FOR K=1T0 B : T$ ( F , C+K ) = " B " : W=W+ 
1 : T2* (W) =STR* (F) +STR* (C+K) : NEXT 
3800 RETURN 

3810 FOR K=l TO B: REM FORMA BARCOS 
HACIA ABAJO 

3820 IF FX9-B) THEN 4150 

3830 IF T* (F+K,C) ="B" THEN 4150 

3840 IF C=0 THEN 3870 

3850 IF T*(F,C-1)="B" THEN 4150 

3860 IF T*(F+K,C-1)="B" THEN 4150 

3870 IF C=9 THEN 3900 

3880 IF T*(F,C+1)="B" THEN 4150 



THEN 4150 

THEN 4150 
THEN 4150 



3890 IF T*(F+K,C+1) ="B" THEN 4150 

3900 IF F=0 THEN 3920 

3910 IF T*(F-1,C)="B" THEN 4150 

3920 IF F=(9-B) THEN 3940 

3930 IF T*(F+(B+1) ,C)="B"THEN 4150 

3940 NEXT K 

3950 W=W+ 1 : T2* ( W ) =STR* ( F ) +STR* ( C ) 
3960 FOR K=1T0 B : T$ ( F+K , C ) = " B " : W=W-f 
1 : T2* (W) =STR* (F+K) +STR* (O : NEXT 
3970 RETURN 

3980 FOR K=l TO BsREM FORMA BARCOS 
HACIA LA IZQUIERDA 
3990 IF C<B THEN 4150 
4000 I F T* ( F , C-K ) = " B " 
4010 IF F=0 THEN 4040 
4020 IF T*(F~1,C)="B" 
4030 IF T* (F-l , C-K) ="B" 
4040 IF F=9 THEN 4070 
4050 IF T$(F+1, C)="B" THEN 4150 
4060 IF T* (F+l , C-K) ="B" THEN 4150 
4070 IF C=9 THEN 4090 
4080 IF T$(F,C+1)="B" THEN 4150 
4090 IF C=B THEN 4110 
4100 IF T$ (F, C~ (B+l ) ) ="B"THEN 4150 
4110 NEXT K 

4120 W=W+1 : T2$'(W) =STR* (F) +STR* (C) 
4130 FOR K=1T0 B: T$ (F, C-K) ="B" : W=W+ 
J : T2* (W) =3TR$ (F) +STR* (C-K) : NEXT 
4140 RETURN 

4150 ON B GOTO 4152,4154,4156,4158 
I 4152 RETURN 3280 
4154 RETURN 3290 
4156 RETURN 3300 
4158 RETURN 3310 
4160 X*=INKEY*:IF X*=""THEN 
SE IF X*<"A" OR X*>"J" THEN 
SE PRINTttl, X*; 

4170 Y*=INKEY*: IF Y*=" "THEN 
SE IF Y*<"0" OR Y*>"9" THEN 
SE PRINTtt 1 , Y* 
4180 L=-- (ASC (X*) -65) *10 
4190 L1=VAL<Y$) *i0 
4200 RETURN 

4210 INTERVAL OFF: IF 11=0 THEN PP=P 
P+200 ELSE PO=PO+200 
4220 LINE(0, 140) -(255, 191) 
ESET<0, 145) , 10:PRINT#1,Z$; 
NIDO";PP; "PUNTOS" 

4230 PSET(0, 160) , 10:PRINT#1, "M 

HA OBTEN IDO"; PO ; " PUNTOS " 
4240 PSET(15, 175) , 1 : PR I NT# 1 , " PULSA 

LA BARRA ESPACI ADORA" 
4250 IF STRIG(0)=-1 THEN 4260ELSE 4 
250 

4260 CLOSE#l:SCREENl:WIDTH 30:KEY O 



4160 
4160 



EL 
EL 



4170 EL 
4170 EL 



10,BF:PR 
HA OBTE 



S X 
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FF: LOCATE 0, 5: PRI NT" ¿QUIERES SEGUIR 

JUGANDO (S/M) ?" ; 
4270 X*=INKEY*:IF X*="" THEN 4270 E 
LSE IF X*<>"S"AND X*<>"N" THEN 4270 
4280 PRINT X*:IF X*="N"THEN 4340 
4290 PRINT: PRI NT "¿VA A JUGAR EL MIS 
MO(S/N>?" 



4300 X*=INKEY*:IF X*="" THEN4300 
4310 IF X*0"S" AND X*<>"N"THEN 430 


4320 IF X*="N" THEN RUN 
4330 GOTO 110 
4340 END 



TEST DE LISTADO ============= 

Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre , pág. 29. 
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1350 


- 68 


1780 


-131 


2210 


-121 


2640 




254 


/ÍÓ 


— 58 


490 


-204 


920 


- 62 


1360 


- 193 


1 790 


—206 


2220 


- 39 


2650 




238 


80 


- 58 


500 


-206 


930 


-192 


1 370 


-248 


1800 


-147 


•"J 


— 3o 


2660 




174 




cr r~> 

- 58 


510 


- 58 


940 


-186 


1380 


- 58 


1810 




2240 


- 81 


2670 


— 


7 


1 YJYJ 


— 1 1 v-í 


520 


-171 


950 


- 1 20 


1 390 


- 27 


1820 


-126 


2250 


- 60 


2680 




104 


H H /"A 

1 1 


-1^4 


530 


__ o / **> 


960 


-151 


1400 


-184 


1830 


- 40 


2260 


- 123 


2690 




254 


1 20 


—228 


540 


-186 


970 


- 37 


4 j% 4 Sst 

1 4 1 


-144 


1840 


—2 1 2 


2270 


-100 


2700 




255 


1. 30 


- 89 


cr cr /".< 

550 


-191 


980 


-253 


1420 


-166 


1 850 


-214 


2280 


- 65 


2710 




2 


140 


- ol 


560 


- 36 


990 


- 1 35 


1 430 


— 221 


1860 


-216 


2290 


— 22 1 


2715 




113 


.1 r- .-( 

1 50 


-229 


570 


-159 


1 000 


- 86 


1440 


-250 


1870 


-136 


2300 


- 95 


2720 






160 


—212 


580 


-204 


1010 


-215 


1 450 


- 48 


1880 


-142 


2310 


-214 


2730 




31 


4 — T í-t 

170 


-145 


5^0 


- 


1 020 


-109 


1460 


-110 


1890 


- 66 


2320 


- 35 


2740 




120 


180 


-20 3 


600 


-206 


1030 


-197 


1 470 


-234 


1 900 


— 2 2 1 


2330 


- 42 


2750 




86 


1 90 


4 /i cr 

- 145 


610 


- 68 


1 040 


- 15 


1480 


- 82 


1910 


-116 


2340 


- 21 


2760 




190 


s—l ,'t ,-t 


— 3a 


620 


-186 


1 050 


-252 


1 490 


- 58 


1920 


- 20 


2350 


a cr 

- 45 


2770 




143 


210 


- 145 


630 


-191 


1 060 


-146 


4 cr t~< t~t 

1500 




19ó0 


-206 


2ó60 


- 148 


2780 




18/ 


220 


- 94 


640 


-146 


1070 


-113 


1510 


- 26 


1940 


-227 


2370 


- 87 


2790 




206 


230 


- 54 


650 


-159 


1 080 


-240 


1520 


-159 


1 950 


-207 


2380 


-172 


2800 




71 


240 


-103 


660 


-204 


1090 


- 33 


1530 


-227 


1960 


-116 


2390 


-129 


2810 




142 


250 


-159 


670 


-194 


1 100 


-158 


1540 


-250 


1970 


-193 


2400 


— Tí j_ 2 


2820 




20 


260 


- 23 


680 


-206 


1110 


-112 


1550 


- 97 


1980 


-206 


2410 


-171 


2830 




20 


270 


-205 


690 


-189 


1120 


-130 


1560 


- 60 


1990 


-100 


2420 


-196 


2840 




22 


280 


-145 


700 


-184 


1 130 


- 90 


1570 


- 99 


2000 


- 58 


2430 


-158 


2850 






290 


-196 


710 


- 25 


1 150 


-197 


1580 


- 49 


2010 




2440 


-251 


2860 




34 


300 


-145 


720 


-192 


1160 


-192 


1590 


-• 11 


2020 


- 28 


2450 


- 58 


2870 




34 


310 


-170 


730 


-156 


1 170 


-197 


1600 


- 59 


2030 


- 3 


2460 


-181 


2880 




36 


320 


-145 


740 


- 37 


1180 


- 93 


1610 


-240 


2040 


- 37 


2470 


-233 


2890 




36 


330 


- 61 


750 


-141 


1190 


-109 


1620 


-133 


2050 


- 78 


2480 


- 64 


2900 




48 


340 


-204 


760 


-206 


1200 


- 68 


1 630 


- 90 


2060 


- 


2490 




2910 




38 


350 


-159 


770 


-213 


1210 


-236 


1640 


- 58 


2070 


-254 


2500 


- 98 


2920 




48 


360 


-212 


780 


-204 


1220 


-206 


1650 


- 69 


2080 


-174 


2510 


- 58 


2925 




48 


370 


- 57 


790 


- 98 


1 230 


- 68 


1660 


- 90 


2090 


- 


2520 


-109 


2930 




60 


380 


- 37 


800 


-184 


1240 


- 89 


1670 


- 98 


2100 
2110 


- 52 


2530 


-221 


2940 




60 


390 


-160 


810 


-192 


1250 


-187 


1680 


- 88 


- 19 


2540 


-138 


2950 




62 


400 


- 7 


820 


- 1 50 


1260 


-184 


1 690 


-106 


2120 


-105 


2550 


- 58 


2960 




62 


410 


-112 


830 


-145 


1270 


- 7 


1700 


- 90 


2130 


-255 


2560 


-141 


2970 




142 


420 


- 28 


840 


-206 


1280 


-198 


1710 


-135 


2140 


-254 


2570 


-221 


2980 




107 






2990 


-255 


3190 


-235 


3400 


-202 


3610 


- 91 


3820 


-140 


4030 


-237 




3000 


- 67 


3200 


- 34 


3410 


- 53 


3620 


-226 


3830 


-232 


4040 


- 1 83 




30 1 


_ fj 


3210 


-235 


3420 


-20 1 


3630 


— 1 42 


" T .840 




4050 


- 175 




3020 


~ 


3220 


-211 


3430 


- 70 


3640 


— JfiJ 


3850 


-176 


4060 


-236 




3030 


- 30 


3230 


— ¿. ó Jj 


3440 


-201 


3650 


-137 


3860 


-236 


4070 


-200 


3040 


- 6 


3240 


-231 


3450 


-187 


3660 


-232 


^370 


- 1 


4080 


-175 




3050 




3250 




3460 


-139 


3670 


- 59 


3880 


-175 


4090 


«=¡ 

w 




3060 


-228 


3260 


-152 


3470 


- 35 


3680 


-176 


3890 


-235 


4100 






3070 


-151 


3270 


-173 


3480 


- 49 


3690 


-236 


3900 


- 24 


4110 


-206 




3080 


-197 


3280 


-177 


3490 




3700 


- 98 


39 1 


-176 


T J. a... f m ' 


— 91 




3090 


- 85 


3290 


-178 


3500 


-141 


3710 


-175 


3920 


-186 


4130 


-226 




3 1 00 


- 5 


3300 


-179 


3510 


-176 


3720 


-235 


3930 


- 51 


4140 


-142 




3105 


- 58 


33 1 


-180 


3520 


-237 


3730 


-106 


3940 


-206 


4150 


- 72 




3110 


-235 


3320 


- 5 


3530 


-180 


3740 


-176 


3950 


- 91 


4152 


-120 




3120 


-152 


3330 




3540 


-175 


3750 


~ 12 


3960 


-224 


4154 


-130 




3130 


-235 


3340 


-106 


3550 


-236 


3760 


- 51 


3970 


-142 


4156 


-140 




3140 


- 73 


3350 


-169 


3560 


-243 


3770 


-206 


3980 


- 35 


4158 
4160 


-150 




3150 


-235 


3360 


-142 


3570 


- 52 


3780 


- 91 3990 


- 46 


- 5 




3160 


-250 


3370 


- 4 


3580 


—224 


3790 


-224 


4000 


—233 


4170 


- 1 09 


3170 


-235 


3380 


-202 


3590 


-175 


3800 


-142 


40 1 


-144 


4180 


- 59 




3180 


- 14 


3390 


- 21 


3600 


-206 


3310 


- 35 


4020 


-176 


4190 


-217 



4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 



-142 
-121 
-213 
-203 
-102 

177 
-158 
- 80 

187 
• 15 

143 
■ 34 
•236 
5 

•129 



TOTAL: 
58216 



lllllllll 



Beiff 




La primera revista de MSX de España en tu domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. I 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 




Calle N.° 

Ciudad Tel. 

Provincia 

Deseo suscribirme a la revista 
SUPEPuJUEGOS EXTRA MSX 
a partir del número 

A)RMA DE PAGO: Mediante talón bast- 
earlo a nombre de: 

MANHATTAN TRANSFER, SJL 

C/.Rooa i BatOle, 10-18 
08083 Barcelona 
Muy importante: para evitar retraaos en la 
recepción de loa números rogamos detá- 
llela exactamente el nuevo número de loa 
distritos postales. Gracias. 

XAHXTA8! 

España por correo normal Ptaa. 1 .780,- 

■nropa correo normal Ptaa. 8.000,- 

Europa por avión Ptaa. 2.800,- 

America por avión Ptaa. 88 USA $ 



C¡RL 





AQUI HALLARAS T 
EL SOFTWARE DE 
MERCADO EN MSX. 
NO TE LO PIERDAS. 
Programas de juegos 
tilídad, educativos, 
fstión. Una guía 
completa con más 
le 100 títulos. 

settes, cartuchos, 
íttes, tarjetas y 
libros. 

Además todas las 
impresas de hardware y 
rftware con sus 
irecciones y teléf 
m número 

imprescindible para e 
usuario MSX. 
YA ESTA EN TU 
QUIOSCO 

MSX CLUB ESPECIAL 
SOFTWARE algo FUE 
~>E SERIE. 




f^" f / i\uüí\m h u 





8 algún problema para ajustaría : 
te ayudará a resolverlo. De 



CLEAR: MAXFILES=1¡ DEFINT A~Z 



GOTO 1980: ' 
1740: ' 
1600: ? 
Í00i> 



-■•!*• Presentación 

Instrucciones 
-+ Menú 
--► Selección 



is de entrada de teclado 



20 
30 
40 
50 
60 

70 

80 
90 
100 

110 ' 

W 

120 TECLA$="i 234567890 "+CHR*( 9) +CHR 
* ( 27 ) +CHR* ( 24 ) +CHR* (13) 
130 T$=INP'UT*(Í> : J.F INSTP (TECLA*, T 
*>=0 THEN PLAY "V10O2AO4": GOTO 13 



140 T= INSTR (TECLA*, T$) : PLAY "V10G 
ÓLÓ4AL404" 

150 IF T=14 THEN 1740 

160 IF T<12 THEN SCREEN 2,,0¡¡ IF T< 
8 OR T=ll THEN COLOR 1,12,12: CLS 
170 ON T GOSUB 280,370,460,580,730, 
880, 1040, 1160, 1230, 1300, 1370, 1510, 1 
590, 

180 GOTO 130 
190 ' 

200 f 

W 



210 LOCATE 0,21: PRINT 
A TECLA PARA CONTINUAR 
W 



S PULSE UN 





220 A*=INKEY$: IF A$="" THEN 220 
230 BEEP: RETURN 
240 ' 



250 
260 
270 
280 
290 
W 



Li neas 




horizontales 




300 FOR Y=0 TO 190 STEP10 
310 L I ME ( 3 , Y ) - ( 253 , Y ) , 1 
320 NEXT Y: RETURN 
330 " 




Lineas Verticales 



FOR X=3 TO 253 STEP 10 
LINE (X,0)-(X, 190) , 1 
NEXT X: RETURN 



Trama 





FOR Y=0 TO 190 STEP 10 
LINE ( 3 , Y ) - ( 253 , Y ) , 1 
NEXT Y 

FOR X=3 TO 253 STEP 10 
LINE (X,0)-(X, 190) , 1 
NEXT X: RETURN 



ZjZs'/J 

560 
570 
580 
590 
W 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
W 

750 



Damero 



LINE (2,0)-(253, 192) ,6,B 
FOR Y=l TO 191 STEP20 
FOR X=3 TO 253 STEP 20 
LINE(X, Y)-(X+9, Y+9) , 1 , BF 
NEXT X,Y 

FOR Y=ll TO 171 STEP20 
FOR X=13 TO 233 STEP 20 
LINE(X, Y)-(X+9, Y+9) ; 1 , BF 
NEXT X,Y: 



Ci rcul os 




FOR X=12 TO 72 STEP 12 



i^^m^M DDiHZ QQi~!OC 

$ ^=*r f ri\uui\m in -i 



760 CIRCLE (128,96) , X, 1 
770 NEXT X 

780 FOR X-6 Tü 30 STEP 6 

790 CIRCLE (30,30) , X, 1 

800 C I RCLE ( 225 , 1 6 1 ) , X , 1 

810. CIRCLE (30,161),X,1 

820 CIRCLE (225,30) , X, 1 

830 NEXT X: RETURN 
840 ' 
850 ? 
360 ' 
870 ' . 

880 ? Cuadrados 

Q90 f 

W 











900 FOR X=0 TO 60 STEP 10 

910 LINE (X+60, X+60)-( 195-X, 131-X) , 

1,B 

920 NEXT X 

930 FOR X=0 TO 25 STEP 5 

940 LIME (X+0,X+0)~(60-X,60~X) , 1,B 

950 LINE (X+0, X+131) ~(60-X, 191-X) , 1 

,B 

960 LINE (X+195, X+0) (255--X, 60-X) , 1 
f B 

970 LINE (X-i-l?5,X + 131)~(255-X, 191-X 
) . 1,B 

980 NEXT X 
990 RETURN 
1000 * 
1010 7 
1020 ' 
1030 7 

1040 - Barras verticales de color 
! 050 > 

W- 

1060 RESTORE 1110 

1070 FOR m% TO 15: READ C 

1080 LINE (17* (N-l) , 0)-(17*N, 192) ,C 

,BF 

1090 NEXT N 
1100 RETURN 

1110 DATA 1,4,12,6,13,5,2,8,3,9,14, 

7, 10, 11, 15 

1120 ' 

1130 ' 

1140 ' 

1150 ■ 

1160 ' Pantalla Azul 

1170 ' 

W- 

1180 COLOR 4,4,4: CLS: RETURN 
1190 * 
1200 > 
1210 > 



Pantalla Verde 



1220 " 

1230 9 

1240 ' 

W- 

1250 COLOR 12,12,12: CLS: RETURN 

1260 ' 

1270 ' 

1280 •- 

1290 * 

1300 ' Pantalla Roja 

1310 s 

W- 

1320 COLOR 6,6,6: CLS: RETURN 
1330 ' 
1340 7 
1350 ' 
1360 ' 

1370 ' Mira de Ajuste 

1380 ' 

W~ 

1390 PRESET (0,0): DRAW "~lr72br40r 

31br40r72d60bd20d31bd20d60172bl4013 

1 b 1 401 72u60bu20u3 1 bu20u60 " 

1 400 L I NE < , ) -- ( 255 , 1 9 1 > , 1 : L I NE ( 

, 1 9 1 ) - ( 255 , ) , 1 : L I NE ( , 96 ) - ( 255 , 96 

) , 1 : LINE ( 128, 0) ~ ( 128, 191 ) , 1 

1410 FOR Y=4 TO 191 STEP 3: LIME (1 

26, Y)-(130, Y) , 1: NEXT Y 

1420 FOR X=4 TO 255 STEP Bs LINE (X 

,94)-<X,9S> , 1: NEXT X 

1430 FOR R=20 TO 60 STEP 40 

1440 CIRCLE (128,96) ,R, 1 

1450 NEXT R 

1460 RETURN 

1470 ' 

1480 ' 

1490 

1500 ' 



Fin del Programa 



1510 7 

1520 7 

W- 

1530 SCREEN 3: COLOR 13,1,1: CLS: P 
RESET (82, 80) : PRINT#1 , "FIN" : FOR 1= 
1 TO 2000: NEXT 1 

1540 SCREEN 0,,1: WIDTH 37: COLOR 1 
2,1,1: KEY ON: CLOSE: CLEAR: END 
1550 7 
1560 ' 
1570 ' 
1580 ' 

1590 ' Men-Ii 

1600 7 

W- 

1610 SCREEN 0: COLOR 12,1,1: KEY OF 
F 




ODnrDOi~fOC 

I l\UUKi II II l-i 



1620 LOCATE 12,0: PRINT '•*## MENU * 



0* 

W " : PRINT 

1630 PRINT " 

ontales 

t ical es 



1640 PRINT " 
s 

e Color- 
ía Azul " 
1650 PRINT " 
de 
o ja 

- Mira de ajuste" 
1660 PRINT " 
rucciones 
nú 

Fin del Programa" 
1670 LOCATE 8,21: 
NE OPCION » 

W " 

1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
, 1 



1. — Lineas Horiz 
2. — Lineas Ver 
3. — Trama 
4. — Damero 

5. — Círculos 

6. — Rectángulo 
7 . — Barras d 
8. — Pantal 

9. — Pantalla Ver 
0. — Pantalla R 

< TAB ) 

< RETURN > Inst 

< SELECTA Me 

< ESC ) 

PRINT SÉLECCIO 



LOCATE 18,23 
GOTO 100 



Instrucci ones 



SCREEN 
KEY OFF 
1770 LOCATE 
IONES 



: WIDTH 37: COLOR 12, 1 



PRINT 



INSTRUCC 



" : PR I NT : PR I NT : 

1780 PRINT: PRINT " Este progr 

ama genera once pantallas de reglaj 
e para efectuar los diferentes aju 
stes, tanto de imagen como de coló 
r, sobre monitores o televisores " ; 
1790 PRINT" (uti 1 i zados como monitor 
es) enB/N o color.": GOSUB 200: CL 
S 

1800 LOCATE 0,3: PRINT: PRINT" 

Para los ajustes de imagen (anchu 
ra, altura y linealidad) se recom 
ienda tener ciertas nociones básica 
ssobre TV. " 

1810 PRINT: PRINT: PRINT" No s 

e recomienda actuar sóbrelos ajus 
te de color (cromi nanci a, convergen 
cia y pureza> a no ser que seteng 







a bastante experiencia en este tipo 

de ajustes.": GOSUB 200: CLS 

1820 PRINT" Para los ajustes de 

imagen convie ne seguir el sigui 

ente orden:": PRINT: PRINT "1.- Gir 

ar el yugo para situar las lí n 

eas horizontales paralelas a los 

bordes de la pantalla." 

1830 PRINT: PRINT"2.- Retocar la al 

tura, anchura, linea lidad gener 

al y linealidad supe rior hast 

a obtener círculos co rrectos 
■i 

1840 PRINT: PRINT"Estos ajustes inf 
luyen unos en otros : rep í tanse suces 
ivamente hasta lograrun buen resul 
tado. "; 

1850 PRINT" Al llevar a caboestos 
ajustes puede alterarse el sincron 
ismo vertical: corríjase si espr 

eci so. " 

1860 GOSUB 200: CLS: PRINT: PRINT "3 
.- Céntrese la imagen mediante la 
s aletas del yugo." 
1870 PRINT: PRINT "4.- Puede ser nec 
esario repetir algún ajuste segú 
n (3).": PRINT: PRINT "5.- Si la fa 
1 ta de linealidad horizon tal si 
gue siendo acusada, retocar la 1 
ineaíidad horizontal." 
1880 PRINT: PRINT "6.- Retocar los 
imanes del yugo si las línea 

s verticales están muy curvadas 

II 

■ 

1890 PRINT: PRINT "7.- A justar el 
enfoque para obtener la mayor n 
itidez en el centro de la panta 
lia. " : GOSUB 200: CLS 
1900 LOCATE 9, 2: PRINT: PRINT: PRINT 
Para generar las diferentes 
pantallas de ajuste solo tiene"; 
1910 PRINT " que pulsar el n2 o la 
tecla correspondí ente, según el menú 
.": PRINT: PRINT " No es neces 

ario volver al menúpara selecciona 
r una nueva pantalla." 
1920 GOSUB 200 
1930 GOTO 1590 
1940 " 
1950 ' 
1960 ' 
1970 ' 

1980 ■ Presentación 

1990 ' 

W- 



II 



^* rKUüKni iru 







2000 COLOR 6,1,3: SCREEN 2 
2010 OPEN "grp:" FOR OUTPUT AS#1 
2020 FOR 1=0 TO 2: PSET <52+I,30),l 
: PRINT #1," GENERADOR 

": NEXT 

: FOR 1=0 Tü 2: PSET (60+1, 70), 1: P 
RINT #1, " D E MIRAS 

NEXT 







2030 FOR 1=0 TO 2: PSET (60+1,110), 
U PRINT #1, " PARA TV 

______ u s NEXJ 

2040 FOR 1=0 TO 1: PSET (120+1.180) 

,1: PRINT # 1 , " J R H - 1 98 6": NEX 
T I 

2050 FOR 1=0 TO 6000: NEXT I: BEEP 
2060 GOTO 1740 
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-103 


1000 
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1300 
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1600 


- 58 




-201 


1 10 


- 58 


410 


-163 


710 


- 58 


1010 


- 58 


1310 


- 58 


1610 


- 85 


1910 


- 20 


120 


-176 


420 


- 58 


720 


- 53 


1020 
1 030 


- 58 


1320 


-251 


1620 


- 63 


1920 


- 99 


130 


-205 


430 


- 58 


730 


- 58 


- 58 


1330 


- 58 


1630 


-216 


1 930 


-211 


140 


- 31 


440 


- 58 


740 


- 58 


1040 


- 58 


1340 


- 58 


1640 


-253 


1940 


- 58 


1 50 


-165 


450 


- 58 


750 


_ lx 


1050 


- 58 


1350 


- 58 


1650 


- 58 


1 950 


- 58 


160 


-139 


460 


- 58 


760 


-249 


1060 


-244 


1360 


- 58 


1660 


-190 


1960 


- 53 


170 


-103 


470 


- 58 


770 


-219 


1 070 


-204 


1370 


- 58 


1670 


-135 


1 970 


- 58 


1 80 


- 25 


480 


-118 


780 


-217 


1080 


-181 


1380 


- 58 


1680 


- 75 


1980 


- 58 


190 


- 58 


490 


-171 


790 


- 85 


1090 


-209 


1390 


-185 


1690 


-251 




- 58 


200 


- 58 


500 


-220 


300 


-155 


1 1 00 


-142 


1 400 


- 8 


1 700 


- 58 


2000 


-100 


210 


- 90 


510 


-183 


810 


-216 


1110 


- 30 


1410 


-116 


1710 


- 58 


2010 


- 17 


220 


- 97 


520 


-103 


820 


- 24 


1120 


- 58 


1420 


-112 


1720 


- 53 


2020 


- 46 


230 


-136 


530 


-163 


830 


-163 


1 130 


- 58 


1 430 


- 29 


1730 


- 58 


2030 


-157 


240 


- 58 


540 


- 58 


840 


- 58 


1 140 


- 58 


1440 


-243 


1740 


- 53 


2040 


- 80 


250 


- 58 


550 


- 58 


850 


- 58 


1 150 


- 58 


1 450 


-213 


1 750 


- 58 


2050 


- 71 


260 


- 58 


560 


- 58 


860 


- 58 


1 160 


- 58 


1460 


-142 


1760 


- 99 


2060 


-105 


270 


- 58 


570 


- 58 


870 


- 58 


1 170 


- 58 


1470 


- 58 


1770 


-134 






280 


- 58 


580 


- 58 


880 


- 58 


1 180 


—245 


1480 


- 58 


1780 


- 21 


TOTAL : 


290 


- 58 


590 


- 58 


890 


- 58 


1190 


- 58 


1 490 


- 58 


1 790 


-231 






300 


-118 


600 


- 75 


900 


-243 


1200 


- 58 


1500 


- 58 


1 800 


-212 




45 




ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 



OTRO SENSACIONAL ¡-J JUEGO DE MANHATTAN TRANSFERS, S.A. 



BACKGAMMON 




E. Software/Serman 
Formato: tarjeta Softcard 




iiif niif su iiiiiii 



Uno de los más populares y anti- 
guos juegos de tablero ha sido lle- 
vado al formato de tarjeta con no- 
table precisión, ya que responde exacta- 
mente a todas las reglas. 
Una vez cargada la tarjeta aparece ins- 
en pantalla el tablero de 
backgammon. La primera opción es la de 
ver una demostración del juego y la segun- 
da es jugar contra el ordenador una parti- 
da. Como las reglas son muy conocidas me 
limitaré a describir los aspectos más inte- 
resantes de esta versión de Softcard. A la 
derecha del tablero aparecen dos etique- 
tas de identificación de los Jugadores: la 
roja es para ti y la azul para la máquina. 
En la primera puedes poner tu nombre, 
con sólo teclearlo y dándole al RETURN. 
Posteriormente puedes marcar el número 
de partidas a jugar, las cuales aparecen 
parpadeando a la derecha de la pantalla, 
variando su número entre 1 y 64. Para de- 
terminar su número puedes utilizar los 
cursores o el joystick y para fijarlo debes 
emplear la barra espadadora o el botón de 
disparo. Acto seguido empieza la partida, 
lanzando el ordenador dos dados, uno rojo 
y otro azul para determinar el orden de sa- 
lida de los jugadores. Si saliese un doble se 
tiran de nuevo, moviendo las fichas aquel 
Jugador que haya ganado. 



El diseño de esta versión de backgam- 
mon está muy cuidada y respeta todas las 
reglas del tradicional juego, que se originó 
hace miles de años en la región compren- 
dida entre el Eufrates y el Tigris. A lo largo 
de los siglos sus reglas se han ido modifi- 
cando hasta alcanzar el grado de perfec- 
ción actual. 




Grafismo: muy bueno 
Conclusiones: excelente versión que diver- 
tirá a los amantes del juego en si, incluso a 
aquellos que aún siguen prefiriendo los table- 
ros sobre la mesa. 



FORMULA 1 



Mastertronic/Drosoft 
Formato: cassette 32 K 
Mandos: joystick o teclado 
Teclee: LOAD "CAS:", R 




POR CLAUDIA TELLO HELBLING 



Fórmula 1 de Mastertronic es un si- 
mulador automovihstico que per- 
mite al jugador correr en los circui- 
tos de fórmula 1. Para conseguirlo antes 
tiene que dar una vuelta de clasificación al 
circuito. El jugador tiene que elegir si 
quiere pista mojada o seca y en cuál circui- 
to, entre los diez más famosos del mundo, 
va a correr. Estos diez circuitos son los de 
Monza, Süverstone, Brands Harch, Mona- 
co, Hockenheim, Osterreichring, Kylami 
Solder, Paul Ricard y Zandvoor. Otra op- 
ción es la de emplear cambios automáti- 
cos o manuales. El peligro con estos últi- 
mos es que llegues a fundir el motor, aun- 
que una luz roja te indica en la parte supe- 
rior de la pantalla cuando te has pasado de 
revoluciones. 

El juego en sí no es muy difícil pero sí re- 
quiere una gran precisión ya que apenas 
te sales de la calzada, el ordenador te des- 
califica y tienes que iniciar nuevamente la 
salida. De modo que tienes que calcular 
muy bien los frenados para entrar en la 
curva sin salirte e ir a la velocidad adecua- 
da en las rectas para que los que vienen 
más rápido no te atropellen. 



Grafismo: elemental 
Sonido: correcto 

Conclusiones: puede atraer a aquellos que 
se apasionan por la velocidad. Una ventaja es 
su precio. 

Precio aproximado: 750 pts. 



CHOCK'NPOP 



Electric Software/Serma 
Formato: tarjeta Softcard 
Mandos: teclado o joystick 



Chock'n Pop es un pajarito muy ro- 
mántico que protagoniza este di- 
vertido juego. Tu misión es ayudar a 
Chock'n a recuperar sus corazones que 
han sido atrapados y encerrados en unas 
mazmorras. Nuestro pajarito en el afán de 
recuperarlos se ha adentrado en el labe- 
rinto en cuyos pasillos encuentra huevos 
que en un principio parecen inofensivos 
pero que si te descuidas se convierten e 
monstruos. Es aquí cuando empieza el 
verdadero peligro, pues Chock tiene un pe- 
queño defecto y es que tiene las patas muy 
cortas y no puede huir con rapidez con lo 
que las posibilidades de ser alcanzado son 
muchas. Para defenderse dispone de bom- 
bas que debe disparar unos segundos an- 
tes para darse tiempo a buscar refugio y 
porque las bombas son de efecto retarda- 
do. Al liberar el primer corazón, que se en- 
cuentra en la parte inferior derecha de la 
pantalla, consigue abrir la puerta de la 



WV> MUIRNT $T-fMONTY. 
WWW MW\aS 




primera habitación al romper el hielo que 
la obstaculiza. Una vez que consiga liberar 
a todos los corazones puede escapar o bien 
destruir antes a todos los monstruos para 
obtener asi mas puntuación. 

El juego consta de cuatro mazmorras 
que equivalen a otros tantos niveles de di- 
ficultad, cada uno de los cuales tienen nue- 
vos y mas peligrosos obstáculos. 

El pajarito Chock'n dispone de un tiem- 
po limite al final del cual muere. Otra ma- 
nera de acabar a los rivales es que Chock'n 
toque una señal de energía, que va apare- 
ciendo a medida que transcurre el juego. 
Esto le permite acabar con los monstruos 
con sólo rozarlos. Aparte de estas señales 
de energía tiene los frutos que si los come 
puede ganar puntos extras. En todo mo- 
mento puedes saber la puntución conse- 
guida ya que ésta aparece en laparte supe- 
rior de la pantalla. 



Grafismo: muy bueno 
Sonido: monótono 

Conclusiones: apto para todas las edadesja 
que es una mezcla entre comecocos y juego de 
laberinto. 

Precio aproximado: 5.560 pts. 



MUTANT MONTY 



Artlc/Discovery 
Formato: cassettes 
Mandos: teclado o joystick 
Teclee: BLOAD "MONTY", R 




Monty es un hombrecito muy am- 
bicioso que no hace mas que pen- 
sar en el dinero y en llegar a ser 

famoso. 

Para conseguir estos propósitos, nues- 
tro amigo tiene una gran oportunidad, 
pero ¡atención!, pues para ello debe pasar 
por cuarenta salas o habitaciones y reco- 
ger el oro que encuentre en dichas habita- 
ciones. Monty será mucho más rico mien- 
tras más oro recoja, pero además para que 
logre la fama debe rescatar a una bella 
dama que ha sido secuestrada por los te- 
mibles servicios de seguridad de los cuar- 
tos. Estos temibles vigilantes nos lo ponen 
muy mal puesto que harán lo imposible 
por dificultar el trabajo de Monty. 

Por si todo esto fuera poco para el sufri- 
do Monty, otra nueva dificultad se le cru- 
zará por el camino en el intento de resca- 
tar a la doncella y se las tendrá que ver ne- 
gras para lograr atravesar el interior de 
un acelerador de neutrones y misteriosos 
parajes en donde le esperan varias y se- 
rias sorpresas. 

Aparte de poder dirigir a Monty en 4 di- 
recciones, has de saber que puede moverse 
a dos velocidades (rápida o lenta). 

Si uno de los vigilantes de las habitacio- 
nes te coge habrás perdido una oportuni- 
dad para hacer fortuna y ser un héroe 
para las chicas. De cualquier manera el 
juego tiene otras oportunidades en las que 
tal vez puedas rehacerte y demostrar que 
de verdad eres un héroe. 



Grafismo: bueno 

Sonido: reiterativo 

Conclusiones: muy entretenido. Vale la 
pena jugarlo. 

Precio aproximado: 2.100 pts. 



SPECIA1 
0PERATI0NS 



Lothlorien/Mind Games 
Formato: cassette 64 K 



Este es un juego de estrategia que 
consiste en realizar una secretísi- 
ma misión y en la que necesitarás 
mucha astucia. Si estás dispuesto a salvar 
a tu país pon mucha atención: 

A manos del gobierno ha llegado cierta 
información de que se está construyendo 
en las afueras de la ciudad, en una zona 
muy protegida, un potente y moderno sis- 
tema de armas bacteriológicas que permi- 
tirán el empleo de virus capaces de causar 
enfermedades terribles. Como puedes ver 
es muy importante que tomes parte de 
esta misión junto con otras cuatro perso- 
nas con las que formarás un equipo. La 



elección de estos cuatro miembros la pue- 
des hacer tú mismo optando entre los 
treinta voluntarios e inclusive, para estar 
más seguro, puedes tener una pequeña en- 
trevista con ocho de ellos. 

Una vez formado el equipo tienes que co- 
nocer el objetivo de la misión. Este es en- 
trar en el recinto donde se encuentran las 
armas para descubrir hasta qué punto lle- 
gan sus progresos y si es necesario des- 
truirlo todo. Por supuesto no tienes todo el 
tiempo del mundo, ya que el reloj corre en 
contra. 

Los escenarios del juego son principal- 
mente tres: bosque, al cual llegarás en 
paracaídas; recinto, del cual tendrás una 
foto de la entrada al laberinto, que se en- 
cuentra estrechamente vigilada: laberin- 
to de pasajes y cuartos. 

El juego utiliza una pantalla partida y 
mapas de diferentes posiciones, en las 
cuales aparece tu localización, aunque 
sólo puedes ver lo que verías desde tierra, 
con excepción de la aerofoto del recinto. 
Una de las claves para salir con éxito de 
esta operación comando es saber elegir 
muy bien al equipo y emplear en cada mo- 
mento las habilidades de cada uno de sus 
miembros. 



Grafismo: correcto 
Sonido: elemental 

Conclusiones: un interesante juego interac- 
tivo que pone a prueba la capacidad de estra- 
tegia de los jugadores. Dispone de un correcto 
folleto de instrucciones en castellano, aunque 
los mensajes sean en: 




° MAD FOX 

Instrucción de carga: 
CLOAD "MAD FOX 



INICIACION AL LENGUAJE MAQUINA 



DEL RAUDAL SOFT 



INSTRUCCIONES CON REPETICIÓN | 




Generalmente, en CM, para gestionar 
una tarea incluida en un bloque (conjun- 
to de bytes correlativos de característi- 
cas comunes), se utilizan dos elemen- 
tos: 

a) Un registro, o par de registros si la 
longitud excede de 256 bytes, que lo 
empleamos de puntero conteniendo la 
dirección de memoria del byte dentro de 
bloque en que estamos trabajando. 

b) Un registro o par de registros que lo 
empleamos de contador, para indicar 
que hemos llegado al final del bloque, si 
es que éste tiene una longitud constante 
conocida. 



El Z80 utiliza una serie de instruccio- 
nes que simplifican la programación al 
realizar parte de la gestión de estos dos 
elementos. Por ejemplo, tenemos un 
bloque de 500 bytes y queremos cono- 
cer la posición que ocupa un byte que 
contiene &HAA dentro del bloque. Para 
localizarlo construimos un bucle de tal 
manera que explore cada byte y realice 
una comparación hasta encontrarlo. 
Partimos de la dirección &H4000, y em- 
pleamos como contador el par BC, el re- 



3C 



gistro A para comparar ¡, _ 
puntero dentro del bloque. 

Para ello disponemos de la instruc- 
ción: «CPI (Comparar con incremen- 
to)», que de forma automática realiza la 
función de CP(HL), INC HL, DEC BC, 
que de no existir la CPI tendríamos que 
utilizar. Veamos como quedaría el pro- 
grama: 



mos es la: «CPD (Comparar con decre- 
mento)», que nos permite hacer una ex- 
ploración hacia atrás situando el punte- 
ro HL al final del bloque. Esta instrucción 
realiza las funciones de CP (HL), DEC 
HL y DEC BC. Los flags toman los valo- 
res al igual que CPI. 

Además de esta serie de instruccio- 
nes tenemos unas que por sí solas reali- 



LDHL.&H4000 --- 
LDBC,500dec — 

LD A.&HAA 

CP(HL) 

JR Z, ENCONTRADO 
INC HL 
DEC BC 
LD A,B 
ORC 
JR 

Por otra parte, la instrucción pone al 
flag P/V a cero cuando BC=0, sino toma 
el valor uno. Es decir, JP PE saltará úni- 
camente cuando BC sea distinto de 
cero, y JP PO cuando BC=0. 

Otra instrucción de la que dispone- 



LD HL.&H4000 
LD BC,500dec 
LD A.&HAA 

CPI 

JR Z, ENCONTRADO 
JP PE.OTRO 



zan un bucle, a las cuales llamamos 
«con repetición»: 

a) «CPIR (Comparar con incremento 
y repetición)»: realiza las funciones de 
«CPI» pero además se ejecuta repetida 
y automáticamente hasta que se dan 



una de dos condiciones: BC=0, y por 
tanto hemos llegado al final del bloque 
(P/V toma el valor cero); o bien A=(HL), 
hemos encontrado el byte que buscába- 
mos (Z toma valor uno). 

b) «CPDR ¡Comparar con decremen- 
to y repetición): realiza las funciones 
de'CPIR pero decrementando, esto es, 
CP(HL): DEC HLDEC BC hasta que 
A=(HL)oBC=0. 



TRANSFERENCIA 

DE BLOQUES 

Existen una serie de instrucciones 
que facilitan el traslado de bloques de in- 
formación dentro de la RAM, para ello 
son necesarios tres elementos: 

a) Un par de registros como puntero 
de origen conteniendo la dirección del 
byte del bloque que se va a trasladar. 

dado. ^ 

c) Un registro o par de registros como 
contador de la longitud del bloque que 
se está trasladando. 

Tomemos como ejemplo un bloque 
de 500 bytes. Partimos de la dirección 
&H4000 y lo queremos trasladar a la 
&H5577; emplearemos el par HL como 
puntero del byte origen, DE como punte- 
ro de byte de destino y BC como conta- 
dor de la longitud. 

«LDI» es una instrucción que facilita 
el proceso, pues ella misma realiza las 
funciones de: copiar el byte de la direc- 
ción indicada por HL en la dirección indi- 
cada por DE, pero sin pasar por A, no al- 
terando su contenido; Decrementa BC, 
y si BC=0 el flag P/V toma el valor cero 
(si no lo pone a uno); Incrementa el par 
HL y al par DE. Quedando: 

LD HL.&H4000 

LD DE.&H5577 

LD BC,500dec 

LDI 

JP PE OTRO 

Para trasladar bloques enteros dispo- 
nemos de «LDIR» que realiza las mis- 
mas funciones que «LDI» pero con re- 
petición, es decir, hasta que BC=0, lle- 
vando a cabo todo su traslado. 

LD HL.&H4000 

LD DE.&H5577 

LD BC,500dec 

LDIR 

Los registros utilizados para las direc- 
ciones de origen, destino y contador son 
necesariamente los mencionados 
(HL.DE.BC), puesto que vienen defini- 
dos por las instrucciones. Por otra parte, 
la repetición se lleva a cabo paso a 
paso, por lo que podemos desplazar un 
bloque unos cuantos bytes de forma que 
quede solapado sobre el de origen. 

Al igual que las instrucciones anterio- 
res existen «LDD» y «LDDR» que de- 
crementan los punteros, con lo que e 



nal. 



Como habréis podido apreciar en los 
últimos artículos publicados en esta se- 
rie, ya no aparecen los listados con los 
códigos de nemónicos del Assembler 
del Z80. El motivo de ello es la reciente 
publicación de un especial de nuestra 
(vuestra) revista dedicado enteramente 
al código máquina, en el que podréis en- 
contrar el listado completo de los nemó- 
nicos en cuestión, tanto por orden de nú- 
mero de código, como por orden alfabé- 
tico (del nemónico). 

Este especial contiene además mu- 
chas otras informaciones que os serán 
de una inestimable utilidad para aden- 
traros en el apasionante mundo del có- 
digo-máquina (C M). 

A continuación un listado Assembler 



(realizado con Gen) que ilustra a la per- 
fección la utilización de las instrucciones 
(nemónicos) CALL, JR; LD.CP y mu- 
chas otras. Si lo analizáis, o mejor aún 
introducís en vuestro MSX además, po- 
dréis observar que es un programa muy 
útil. Para ello, podéis introducir los ne- 
mónicos y compilarlo, si disponéis de un 
programa ensamblador o introducir di- 
rectamente los códigos Hexadecimales 
en las direcciones indicadas, (de la 
EA60 a la EAA9), para lo cual deberéis 
utilizar un cargador para C M al estilo de 
los publicados en nuestros anteriores 
artículos. 

NOTA ...Las llamadas Cali del progra- 
ma se realizan a subrutina del BIOS. 



Generador de DATAS 



EA60 




10 


ORG 


60000 


EA60 


210B15 


20 


LD 


HL.P.150B 


EA63 


010040 


30 CURSOR: 


LD 


BC.P4000 


EA66 


78 


40 B1: 


LD 


A,B 


EA67 


B1 


50 


OR 


C 


EA68 


0B 


60 


DEC 


BC 


EA69 


20FB 


70 


JR 


NZ.B1 


EA6B 


AF 


80 


XOR 


A 


EA6C 


CDD800 


90 


CALL 


P.D8 


EA6F 


3C 


100 


INC 


A 


EA70 


C8 


110 


RET 


Z 


EA71 


CDC600 


120 


CALL 


P,C6 


EA74 


3E2A 


130 


LD 


A,"*" 


EA76 


CDA200 


140 


CALL 


PtA2 


EA79 


E5 


150 


PUSH 


HL 


EA7A 


AF 


160 


XOR 


A 


EA7B 


CDD500 


170 


CALL 


P«D5 


EA7E 


E1 


180 


POP 


HL 


EA7F 


B7 


190 


OR 


A 


EA80 


28E1 


200 


JR 


Z.CURSOR 


EA82 


CB47 


210 


BIT 


0,A 


EA84 


2804 


220 


JR 


Z.CONT 


EA86 


CD8FEA 


230 


CALL 


MOVER 


EA89 


3D 


240 


DEC 


A 


EA8A 


CD8FEA 


250CONT: 


CALL 


MOVER 


EA8D 


18D4 


260 


JR 


CURSOR 


EA8F 


F5 


270 MOVER: 


PUSH 


AF 


EA90 


3E20 


280 


LD 


A "" 


EA92 


CDA200 


290 


CALL 


PiA2 


EA95 


F1 


300 


POP 


AF 


EA96 


FE01 


310 


CP 


1 


EA98 


280E 


320 


JR 


Z.DECY 


EA9A 


FE03 


330 


CP 


3 


EA9C 


2808 


340 


JR 


Z.INCX 


EA9E 


FE05 


350 


CP 


5 


EAAO 


2802 


360 


JR 


Z.INCY 


EAA2 


25 


370 


DEC 


H 


EAA3 


C9 


380 


RET 




EAA4 


2C 


390 INCY: 


INCL 




EAA5 


C9 


400 


RET 




EAA6 


24 


410INCX: 


INC 


H 


EAA7 


C9 


420 


RET 




EAA8 


2D 


430DECY: 


DEC 


L 


EAA9 


C9 


440 


RET 
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JOYSTICK IDEALOGIC 

FUERTE Y BARATO 

entro de la gama de periféricos que 
la casa Idealogic ofrece a los usua- 
rios destacamos en esta ocasión su 
joystick. Presenta un di- 
seño ergonómico de gran 
versatilidad, con cuatro 
ventosas adherentes y 
veloz respuesta a los im- 
pulsos. Su construcción 
y la calidad de los mate- 
riales empleados permi- 
ten a Idealogic garanti- 
zarlo por tres meses y 
ofrecerlo a un precio 
muy atractivo, ya que 
sólo cuesta 900 pts. Idea- 
logic está en calle Valen- 
cia 85, 08029 Barcelona. 
Tel. (93) 283 86 93. 





AULA INFORMATICA 
PHILIPS 

Potente y versátil 

Philips atendiendo a las necesidades 
del mercado y dentro de su política 
de apoyo al estándar MSXya cuenta 
con un Aula de Red Local MSX. Esta aula 
cuenta con una estación master integrada 
por un ordenador PCPhüips, P3100 o com- 
patible, provista de una impresora y un 



disco rígido. A partir de ella se pueden co- 
nectar hasta 63 terminales constituidas 
por otros tantos aparatos MSX. Las carac- 
terísticas de esta red al contar con un apa- 
rato PC o compatible que opera con el sis- 
tema MS-DOS le dan una gran capacidad 
de trabajo, ya que en la práctica pueden ac- 
ceder al disco desde cualquier terminal. A 
cada alumno se le asigna un fichero de im- 
presión simultánea cuando inicia la co- 
municación y al final de la sesión todos los 
comandos de impresión son sacados auto- 
máticamente por impresora. 



LOGOLANDIA 

Taller para niños 

El Centro Logo de Barcelona (Ente- 
za, 218 D-8 - 08029 Barcelona - Tel. 
322 26 14) cuenta con un taller de 
formación informática para niños de 8 a 
14 años. Logolandia en sí es la maqueta de 
una ciudad que construyen los niños va- 
liéndose de medios informáticos como la 
tortuga logo, impresora y obviamente or- 




NUEVO SANYO 

MPC-200 



Una de las novedades presentadas 
en el pasado SONIMAG bajo el le- 
ma «El mundo MSX de Sanyo» fue 
su nuevo aparato MPC 200, cuya configu- 
ración pertenece a la primera generación. 
Es decir que cuenta con 32K de ROM y 80K 
de RAM, incluidos 16K de VRAM. Pero lo 
más atrayente de este nuevo aparato de 
Sanyo es su diseño, que rompe totalmente 
con la línea de las máquinas anteriores. 
Este es de color blanco, con la zona de te- 
clado de un marfil oscuro y el teclado pro- 
piamente dicho en distintos matices se- 
gún las funciones. Incluye también el te- 
clado en castellano con letra «Ñ». 



KONAMI ENTRA FUERTE 



Anuncia nuevos juegos arcade 



Konami, líder mundial en software 
de entretenimiento, ha designado 
a la empresa española SERMA 
para que fabrique y distribuya en exclusi- 
va todos sus productos en España. De este 
modo el catalogo de cartuchos para MSX 
se vera sensiblemente incrementado para 



alegría de miles de usuarios del estándar. 
En principio y para antes de fin de año se 
anuncian Jaíl Break, Green Beret, Basket- 
ball, Nemesis, Iron Horse, Nightmare, Sao 
Lin Road y The Goonies. También Konami, 
a través de Serma anuncia para 1987, Sa- 
lamander, un juego ya famoso en Europay 
que con toda seguridad será su próximo 
Mega Game. 
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denadores combinándolos con elementos 
plásticos convencionales. El objetivo de 
Logolandia es despertar e incentivar en el 
niño su capacidad plástica y de reflexión 
sobre el entorno urbano, de modo que allí 
podrá construir semáforos, automóviles, 
etc. Al mismo tiempo se desarrollan los 
conocimientos pretecnológicos, electró- 
nicos, robóticos y de control de construc- 
ciones a través del ordenador. 




DE ALTA VELOCIDAD 

SonySDC-600S 



Entre las novedades que presenta 
Sony para este otoño señalamos su 
grabadora 8DC-600S diseñada es- 
pecialmente para ordenadores MSX. Sus 
principales características es que puede 
grabar en velocidad alta y normal, integra 
monitor de audio, selector de fase, nivel de 
grabación automático, control remoto, 
contador de cinta, etc. Puede además rebo- 
binar una cinta de 60 m, en aproximada- 
mente 110 segundos. Realmente es una 
maravilla. 




TUTOR DE BASIC 

Un manual en tu MSX 



c 



orno resultado de un acuerdo en- 
tre la firma Idealogic y Manhattan 
Transfer, SA. nuestros lectores po- 



drán disponer a través de MSX EXTRA y 
MSX CLUB del Tutor Basic, en formato de 
cartucho. Tutor Basic es un cartucho que 
una vez insertado en la ranura correspon- 
diente no ocupa memoria del usuario y le 
permite a éste hacer las consultas sobre 
cualquier comando Basic en el*moraento 
en que lo necesite con sólo teclear el nom- 
bre de dicho comando. Sin duda un cartu- 
cho de gran utilidd para aquellos que quie- 
ran dominar el basic a tope. Su precio es de 



thi: t; 


RUNEBERC LINKWORD 
NGUAQE SYSTEM 


¿ « 


plu/dolto 




LINKWORD 




INGLES 1 




Software 
educativo 



edad: 8 a 99 
años 



GRAN EXITO DE PLUS 
DATA 

INGLES 1 A LA CABEZA 



Una notable respuesta por parte del 
público usuario está teniendo el 
curso de inglés en cassette y disco 
editado por Plus Data -Gran Vía 661 , Pral. 
08010 Barcelona - Tel. (93) 246 02 02-. 
Este curso responde a la tarea de especia- 
listas en idiomas que han logrado exponer 
de una manera fácil y sencilla las normas 
más idóneas para el aprendizaje del in- 
glés. El curso ha sido desarrollado por Mi- 
chael Gruneberg, doctor en Psicología, y 
David G. George, doctor en Lenguas Romá- 
nicas. El Gruneberg Linkword Language 
System permite un aprendizaje rápido y 
eficaz del idioma, a ello hay que agregarle 
el sistema informático Plus Data que inte- 
gra el curso de idiomas a las posibilidades 
interactivas del ordenador MSX. Su precio 
aproximado es de 6.900 pts. o 7.900 con 
diez lecciones en cassettes o diskette. 




EL MEJOR 
PROGRAMA 

DEL AÑO 
GANA 

VOIAJÍDO 
AL MEJOR 



rj«. 
O ' 



itffi 



Entre todos aquellos cuyos vo- 
tos hayan sido para los progra- 
mas que queden en los dos pri- 
meros puestos sortearemos 
cartuchos, cintas, joysticks, 
adaptadores de tarjetas, etc. El 
plazo finaliza el 30 de noviem- 
bre de 1986 y los resultados se 
darán a conocer en el número 
especial de Reyes. 



VOTO POR 

Publicado en el n.° .. 
de MSX EXTRA. 
Nombre y apellidos 

Calle 

n.° 

Ciudad .., 

Prov 

DP 



Tel 

Escribe en el sobre: 

VOTO MI PROGRAMA 
RocaiBatlle 10-12 
08023 Barcelona 





O . .... 
PRESE 



TRU COS DEL 
PROGRAMADOR 




ROTACION VERTICAL 
DE SPRITES 



La rutina del listado 1 sirve para rotar 
un SPRITE alrededor de un eje vertical. 

Empezad tecleando el listado 2. Lue- 
go de hacer RUN, ya podréis probar la 
rutina con un pequeño gestor escrito en 
BASIC (listado 3). Este gestor define un 
SPRITE de 16x16, tomando como pa- 
trones los de los números de al 3. Ello 
es así para que sea fácil comprobar el 
efecto del giro. 

Si queréis emplear la rutina en alguno 
de vuestros programas, deberéis indi- 
carle el número de SPRITE a invertir ha- 
ciendo - 

A=USR (N.°de SPRITE). 

La rutina se encarga de reconocer el 
tipo de SPRITE en curso, así que es in- 
diferente el tamaño o la ampliación que 
estéis empleando, puesto que ella mis- 
ma tomará las medidas oportunas para 
girar cada tipo. Una cosa más: la rutina 
invertirá el modelo que le indiquéis sin 
importar que en ese momento el SPRI- 
TE esté fuera de la pantalla. 

RESUMEN DEL 
FUNCIONAMIENTO 

La rutina ASSEMBLER del listado 1 
realiza lo siguiente: 

La línea 60 se encarga de convertir el 
número de SPRITE pasado desde el 
BASIC en formato BCD a formato ente- 
ro. 

Las líneas 70 y 80 toman el número 
de SPRITE y llaman a la rutina de la 
ROM encargada de averiguar la direc- 
ción donde se encuentra la definición. 

Las líneas 90-110 sirven para averi- 
guar el tipo de SPRITE en curso. 



LISTADO 1 


LISTADO 2 


10 


ÜRG 


40000 


j.ü r kjkjí.— *t u u u v , i u*t u u f D ; ; 


20CINT: 


EQU 


#2F8A 


RF ADV$ 


30CALPAT EQU 


#84 


= S + PFFK" / y s 


40VPEEK: 


EQU 


u k á 

#4A 


cnwnnr/c . 

DüvrUKb : 


EQU 


#4D 


30 NFYT 


DO 


CALL 


CINT 


4-0 T P55<f "> RRA^TRFTvTRFRP • PT 


( O 


LD 


A, <#F7F8) 


S- PR I NT M HA Y TIN FRRfiR" 


80 


CALL 


CALPAT 


RO DATA CTi RL OTt ^ A RR 


90 


LD 


A, (#F3E0) 


F7 CT) RA OO ^ A FO F^ Rft 
x" i , \sU , o t , KJ KJ , OA, c kj , ro, ÜD 


100 


AND 


2 


02 28 28 F5 FR 91 10 


x x u 


T T"> 

JR 


Z, IVERS 


45 1 Q FR CTí AL OO AF 


120 


PUSH 


HL 


FR P.D A A O O FR 7Q PTl A Ti 


130 


EX 


DE, HL 


00 FR F1 CT) AF) OO O^K 1 


140 


LD 


HL, 16 


o , 1U , ty , JtSX , 1E, U4 , CD, 78 , 


150 


LD 


T"> T 

B, L 




lou 


ADD 


HL, DE 


•4A.00.06 08 1F CB 11 1 


i n i~\ t"* f~\ 

170B2 : 


EX 


DE, HL 


U , ^tí, /'y , UD, 4D, 00 , 23 , 20 , 


180 


CALL 


VPEEK 


FF ro 


190 


LD 


C, A 




200 


EX 


DE, HL 


LISTADO 3 


210 


CALL 


VPEEK 




220 


PUSH 


AF 


i o srPFFTj i h 


230 


LD 


A, C 


9 FORY-OTO^ 


240 


CALL 


VPOKE 


^O FnRY-oTnv 


250 


EX 


DE, HL 


*1 U HJ) v. i ^ — A* l, I ; +L/n.Ka> V V re. 


260 


POP 


AF 


FI^ í Y + í Y + áR 1 *A 1 ~> 
Bkv atv, I t*0 / *0 ^ ) 


270 


CALL 


VPOKE 


50 WFYTy Y 

•J kj HC& XAj 1 


280 


INC 


HL 


hf) RnRY-HTn^ 
V J rui\A — VI <— 'O 


290 


INC 


DE 


70 A <R= A <R+ A <R í Y 1 
f v /i* — A*tH* V A ^ 


300 


DJ NZ 


B2 


80 NEXT 




T) r~\ i - ) 

rUr 


HL 


QO SPP T TFíi ( f» ") — A 
=7 \J O i I\ 1 1 £1* \ Vr / — rVo> 


320 


LD 


E,4 


100 PTTTÍ^PRTTFD flRn 19fl 


330B3: 


CALL 


IVERS 




340 


DEC 


E 


110 T TJWRV<R • T P7t — »• »• TU 
XXv 1 JXA.IS I * . lr¿4>- irl 


350 


JR 


NZ , B3 


FN1 1 


q « n 


RET 




120 DEFUSR7=40000 ! : A=US 


370 ; 






R7 ( NUMFRn - ) 


380; 






1 ^o rifiTm 1 n 


390 ; 








400 IVERS: 


T D 


D, 8 


FIGURA 


A 1 P • 


fl t t 


VPEEK 




420 


LD 


B, 8 




430B1: 


RRA 




A - iiionnm 4 _ 
i i iuuuui t uarry ♦ 


440 


RL 


r 

W 


C: xxxxxxxx « « 


450 


DJÑ2 


R1 


Situación oriainal 


460 


LD 


A,C 


470 


CALL 


VPOKE 


A: 11 00001 x 


480 


INC 


HL 


C: 10000111 


490 

500 


JR 


NZ, B0 


Posición final en la que el registro C es 


RET 




una copia invertida de A. 



Las líneas 120-310 se usan sólo en 
SPRITES de 16x16 y su cometido es 
mover los cuatro bloques de la defini- 
ción, de forma que sea posible invertir el 
modelo llamando a la rutina IVERS cua- 
tro veces (líneas 330-360). 

La rutina IVERS (líneas 400-500) es 



la que realiza la parte dura del trabajo. 
Se trata de mover los bits del acumula- 
dor hacia la derecha de forma que vayan 
entrando en el registro C en sentido con- 
trario. El resultado es que este último re- 
gistro acaba siendo una copia invertida 
del acumulador (ver figura) 
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BIENVENIDOS A 

UN SOFTWARE DE ALTA CALIDAD PARA MSX 



OjHDdl I QUINIELAS 




cowqArantia 

/W4^P^íTRANSffl?SA 



KRYPTON. La batalla más audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün juego cuya popularidad es cada 
vez mas grande entre los usuarios del USX. 
PVP. 500 Ptas. 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 




QUINIELAS. El más completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 



SNAEE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. [Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNNER Conviértete en el audaz pilo- 
to interestelar y lucha a muerte, a través del 
hiperespaclo, contra las defensas del tirano 
Daurus. Dos pantallas y cinco niveles de difi- 
cultad. PVP. 1.000 Ptas. 



PLOPPY. El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Ploppy no perdona y te costará 
mucho superarlo. PVP. 1.000 Ptas. 



L - v CON GaRaMta 



mat) FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión. Diez niveles 
de dificultad. PVP. 1.000 Ptas. 



Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo noy mismo: 



L 



Nombre y apellidos: 

Dirección: 

Población: „ CP Prov. 

□ KRYPTON Ptas. 500- □ SNAKE Ptas. 600- 

□ UBOOT Ptas. 700- □ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ QUINIELAS Ptas. 700,- □ STAR RUNNER Ptas. 1.000- 

Gastos de envío certificado por cada cassette Ptas. 70,- 

Remito talón bancario de Ptas a la orden de Manhattan Transfer, S A 



Tel.: 

□ PLOPPY PVP. 1.000 Ptas. 

□ MADPOX PVP. 1.000 Ptas. 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: 

Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 
Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITAMELAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 




T0M$7 



TODOS LOS 



TITULO 



SISTEMA: 



NOMBRE Y APELLIDOS: 
POBLACION: 



DIRECCION: 



PROVINCIA: 



CODIGO POSTAL: 



FORMA DE PAGO: ENVIO TALON BANCARIO □ CONTRA REEMBOLSO □ 



